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
A voir également:
- Copier coller
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Historique copier coller windows - Accueil - Informatique
- Symbole clavier copier coller - Guide
2 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour, est-ce la seule ligne dans ta macro?
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.
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