Copier une ligne et incrémentation partielle
Résolu/Fermé
A voir également:
- Excel copier formule avec incrémentation
- Formule excel - Guide
- Liste déroulante excel - Guide
- Formule moyenne excel - Guide
- Formule excel si et - Guide
- Formule excel pour additionner plusieurs cellules - Guide
3 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 210
15 oct. 2010 à 18:55
15 oct. 2010 à 18:55
Bonsoir,
A28:B59 est une référence relative, elle s'incrémente sur la ligne suivante.
Il faut que tu la rendes absolue (fixe) pour les colonnes et les lignes avec des $ devant.
=RECHERCHEV(B1;$A$28:$B$59;2)
eric
A28:B59 est une référence relative, elle s'incrémente sur la ligne suivante.
Il faut que tu la rendes absolue (fixe) pour les colonnes et les lignes avec des $ devant.
=RECHERCHEV(B1;$A$28:$B$59;2)
eric
Sinon autre petit problème qui survient :
quand la ligne est copiée elle est identique a celle sélectionnée comment pourrait-on remettre a zéro les différentes listes de choix automatiquement a chaque nouvelle ligne ??
Merci d'avance encore une fois (j'espère)
Alex
quand la ligne est copiée elle est identique a celle sélectionnée comment pourrait-on remettre a zéro les différentes listes de choix automatiquement a chaque nouvelle ligne ??
Merci d'avance encore une fois (j'espère)
Alex
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 210
15 oct. 2010 à 21:35
15 oct. 2010 à 21:35
C'est le fonctionnement normal d'excel.
Garde-toi au moins 1 ligne vide avant de recopier...
eric
Garde-toi au moins 1 ligne vide avant de recopier...
eric
je suis désolé mais je n'y arrive pas trop je crois que cela provient de ma façon d'incrementer que j'avais repris d'un forum d'ici.
Code:
Private Sub CommandButton1_Click()
'Aller en A1
Range("A1").Select
'Tester si la cellule de dessous est vide, si non descendre d'une ligne
While ActiveCell.Offset(1, 0).Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
'Quand la dernière valeur du tableau est trouvée, sélectionner le nombre de colonnes concernées
ActiveCell.Range("A1:J1").Select
'Recopier le contenu sur une ligne vers le bas
Selection.AutoFill Destination:=ActiveCell.Range("A1:J2"), Type:=xlFillCopy
End Sub
dois-je prendre une autre direction pour ce copier collé ?
Alex.
Code:
Private Sub CommandButton1_Click()
'Aller en A1
Range("A1").Select
'Tester si la cellule de dessous est vide, si non descendre d'une ligne
While ActiveCell.Offset(1, 0).Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
'Quand la dernière valeur du tableau est trouvée, sélectionner le nombre de colonnes concernées
ActiveCell.Range("A1:J1").Select
'Recopier le contenu sur une ligne vers le bas
Selection.AutoFill Destination:=ActiveCell.Range("A1:J2"), Type:=xlFillCopy
End Sub
dois-je prendre une autre direction pour ce copier collé ?
Alex.
15 oct. 2010 à 20:30
Merci encore