Jelf
XLDnaute Occasionnel
Bonjour
J'aimerai savoir si on peut incrémenter des cellules dans une macro; si oui comment?
Ex: j'ai un tableau dans la feuille Liste dont le nombre de lignes augmente avec le nombre de feuille (par insertion), pour l'instant, je fais un copier coller
Cellule "C2" devient "C3), "H2" devient "H3" et "J2 devient J3". Il n'y a que cela qui change. Autant d'insertion= Autant de copier coller etc...
Sheets("Liste").Select
Dim nomfeuil As String
nomfeuil = Range("C2")
Sheets(nomfeuil).Select
Range("H2:I2").Select (Range("H2:I2") ce H2 la je n'y touche surtout pas))
Selection.Copy
Sheets("Liste").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets(nomfeuil).Select
Range("J1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Si vous trouvez une solution, je vous remercie d'avance
Jelf
J'aimerai savoir si on peut incrémenter des cellules dans une macro; si oui comment?
Ex: j'ai un tableau dans la feuille Liste dont le nombre de lignes augmente avec le nombre de feuille (par insertion), pour l'instant, je fais un copier coller
Cellule "C2" devient "C3), "H2" devient "H3" et "J2 devient J3". Il n'y a que cela qui change. Autant d'insertion= Autant de copier coller etc...
Sheets("Liste").Select
Dim nomfeuil As String
nomfeuil = Range("C2")
Sheets(nomfeuil).Select
Range("H2:I2").Select (Range("H2:I2") ce H2 la je n'y touche surtout pas))
Selection.Copy
Sheets("Liste").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets(nomfeuil).Select
Range("J1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Si vous trouvez une solution, je vous remercie d'avance
Jelf