Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1818 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB - Excel] Insertion ligne qui n'incrémente pas formules [résolu]

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB - Excel] Insertion ligne qui n'incrémente pas formules [résolu]

n°1998239
pekbull
Posté le 02-06-2010 à 09:46:39  profilanswer
 

Bonjour,
 
Dans Excel 2003, à l'aide d'un bouton dans une UserForm, j'insère une ligne dans une sheet de la manière suivante:

Code :
  1. Range("A6","G6" ).Insert Shift:=xlDown


Ensuite, j'insère une formule dans cette nouvelle ligne:

Code :
  1. Range("G6" ).Formula = "=$F$6"


Lorsque je clique sur mon bouton pour insérer un première ligne: tout se passe bien
Lorsque je clique sur mon bouton pour insérer une nouvelle ligne: la ligne précédente descend d'un cran (ok), la nouvelle ligne se complète avec la formule (ok), mais la formule de la ligne décalée devient =$F$7 !
 
Malgré les '$' la formule s'incrémente. Comment puis-je faire pour éviter ceci?
 
Merci d'avance pour votre aide :jap:


Message édité par pekbull le 02-06-2010 à 13:29:21

---------------
ekunn.com  -  thingiverse.com/pekcitron  -  github.com/gregsaun  -  elevenQuad drone
mood
Publicité
Posté le 02-06-2010 à 09:46:39  profilanswer
 

n°1998268
pekbull
Posté le 02-06-2010 à 10:38:39  profilanswer
 

J'ai remarqué quelque chose,
 
Si je fais ça, la formule ne s'incrémente pas:

Code :
  1. Cells(6, 7).Select
  2. Selection.Insert Shift:=xlDown
  3. Cells(6, 7).Formula = "=$F$6"


Si je fais ça, elle s'incrémente:

Code :
  1. Cells(6, 6).Select
  2. Selection.Insert Shift:=xlDown
  3. Cells(6, 7).Select
  4. Selection.Insert Shift:=xlDown
  5. Cells(6, 7).Formula = "=$F$6"


 
 :pt1cable:


---------------
ekunn.com  -  thingiverse.com/pekcitron  -  github.com/gregsaun  -  elevenQuad drone
n°1998333
pekbull
Posté le 02-06-2010 à 13:27:34  profilanswer
 

Ok j'ai compris :)

 

Lors de la création de la nouvelle ligne, la valeur en F6 utile à la formule passe en F7. C'est pourquoi la formule s'incrémente.

 

Solution:
1. Insérer une ligne en dessous de la première
2. Copier les valeurs de cette première ligne
3. Coller ces valeurs dans la ligne en dessous
4. Remplir les nouveaux champs pour la première ligne


Message édité par pekbull le 02-06-2010 à 13:28:19

---------------
ekunn.com  -  thingiverse.com/pekcitron  -  github.com/gregsaun  -  elevenQuad drone

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB - Excel] Insertion ligne qui n'incrémente pas formules [résolu]

 

Sujets relatifs
Indiquer numéro de ligne VBA excel[resolu] compilation release Visual Studio 2008
[Résolu] Pb de résolution de type dans un template[Résolu] Arrière-plan+Boites -> effet différent suivant navigateur
[RESOLU] question con mais utile image en html[resolu] simuler un resultset vide
Macro Excel: Pivottables: Argument ou Appel de procédure incorrectMacro Excel VBA IE
Matrice vba excel 
Plus de sujets relatifs à : [VB - Excel] Insertion ligne qui n'incrémente pas formules [résolu]


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR