Copier coller

Résolu/Fermé

bomber368 - 25 janv. 2019 à 20:20
bomber368 - 26 janv. 2019 à 20:42

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

Configuration: Windows / Edge 18.17763

A voir également:

Copier coller
Copier coller pdf - Guide
Copier une vidéo youtube - Guide
Symbole clavier copier coller - Guide
Style d'écriture a copier coller - Guide
Dessin sms copier coller zizi ✓ - Forum Word

2 réponses

Réponse 1 / 2

yg_be Messages postés 23193 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 septembre 2024 Ambassadeur 1 534
25 janv. 2019 à 23:10

bonjour, est-ce la seule ligne dans ta macro?

bomber368
26 janv. 2019 à 08:56

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.

yg_be Messages postés 23193 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 septembre 2024 1 534 > bomber368
26 janv. 2019 à 12:18

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 i

ou, 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

Réponse 2 / 2

bomber368
26 janv. 2019 à 20:42

Bonjour, un grand merci, à la prochaine.

Discussions similaires

Dessiner avec son clavier et avec des lettres

Arobase (@)

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis

Comment retrouver le presse papier sur iPhone ?

Discussions similaires

Newsletters