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

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

Marsh Posté le 02-06-2010 à 09:46:39    

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
Reply

Marsh Posté le 02-06-2010 à 09:46:39   

Reply

Marsh Posté le 02-06-2010 à 10:38:39    

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:

Reply

Marsh Posté le 02-06-2010 à 13:27:34    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed