Copier coller
Résolu
bomber368
-
bomber368 -
bomber368 -
Bonjour, j'ai cette formule dans le module de ma macro et je voudrais "faire" un copier coller mais que les case changent à chaque fois ex: e10 devient e11, d10 d11 etc...
If [e10].Value > [d10].Value Then [d10].Value = [e10].Value
If [e10].Value > [d10].Value Then [d10].Value = [e10].Value
Configuration: Windows / Edge 18.17763
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, est-ce la seule ligne dans ta macro?-
Bonjour, oui, que je voudrais répéter une cinquantaine de fois en incrémentent de 1 a chaque fois et pour ne pas faire un bête copier coller et changer à chaque ligne la valeur, cela m'épargnerait du temps et mes connaissances. Ex :
If [e10].Value > [c10].Value Then [c10].Value = [e10].Value
If [e11].Value > [c11].Value Then [c11].Value = [e11].Value
If [e12].Value > [c12].Value Then [c12].Value = [e12].Value
If [e13].Value > [c13].Value Then [c13].Value = [e13].Value
If [e14].Value > [c14].Value Then [c14].Value = [e14].Value
A tantôt.- peut-être ainsi:
Dim i As Long For i = 0 To 100 If [e10].Offset(i, 0).Value > [c10].Offset(i, 0).Value Then [c10].Offset(i, 0).Value = [e10].Offset(i, 0).Value Next iou, comme tu préfères:Dim lig As Long For lig = 10 To 110 If Cells(lig, 5).Value > Cells(lig, 3).Value Then Cells(lig, 3).Value = Cells(lig, 5).Value Next lig
-
-
