Rédaction macro condition

Bonjour,

Je suis un tout débutant sur VBA (et pas informaticien de formation).
J'ai fait un petit tableau excel et j'ai rédiger la macro suivante pour copier des valeur contenue dans des cellules :

Code:

---

1 2 3 4 5 6 7 8

Range("N3:R3").Select Selection.Copy Range("A3:I3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("M24").Select   End Sub

---

Cependant, j'aimerais que cette macro sois soumise à une condition c'est-à-dire copier les valeur si la cellule M3 contient "VRAI"

D'avance merci pour votre aide

Cordialement

Bonjour,
La méthode Select et l'objet Selection sont inutiles et gourmands en ressources. De plus il est hautement recommandé de préciser la filiation complète de l'objet Range (Feuille + classeur). Soit

Code:

---

1 2 3 4

With ThisWorkbook.Worksheets("Feuil1") .Range("N3:R3").Copy .Range("A3") .Range("A3:I3").Value = .Range("A3:I3").Value ' Equivalent à Copier/Collage special-Valeur End With

---

Citation:

---

Cependant, j'aimerais que cette macro sois soumise à une condition c'est-à-dire copier les valeur si la cellule M3 contient "VRAI"

---

Il serait préférable de tester VRAI qui est une vrai valeur pour Excel (booléenne) que "VRAI" qui est une chaîne de caractères
Exemple

Code:

---

1 2 3 4 5 6 7 8

Sub t() With ThisWorkbook.Worksheets("Feuil1") If .Range("M3") Then .Range("N3:R3").Copy .Range("A3:I3") .Range("A3:I3").Value = .Range("A3:I3").Value ' Equivalent à Copier/Collage special-Valeur End If End With End Sub

---

Bonjour,

on voit bien que le code n'a pas été écrit mais créé par le Générateur de macros !

Donc pour la feuille active (sinon suivre les judicieuses remarques de Philippe !) :

Code:

---

If [M3].Value = True Then [A3:I3].Value = [N3:R3].Value

---

Et une autre règle du forum :
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour Marc,
:plusser:
Pourquoi suis-je passé par la méthode Copy alors qu'une seule ligne suffisait :calim2:

Je viens de constater qu'il doit avoir un problème du nombre de cellules copiées (N3:R3) au nombre de cinq avec la plage de destination qui en contient 8 (A3:I3)

Bonjour Philippe !

Je n'ai pas osé lui évoquer son problème de plage pour ne pas l'embrouiller avec sa question initiale, grand débutant oblige …

Je m'attendais à un retour du genre « Pourquoi les quatre dernières cellules sont en erreur ? »
auquel j'aurais répondu : « Faut p't'être bien penser à vérifier la concordance de la taille des plages de cellules ‼ » …

Maintenant, il est avisé !

Bonjour,

Dans ce cas de copié/collé simple, on n'a pas vraiment besoin de s'intéresser à la taille des plages.

Si tu passes par un "vrai" copié/collé, tu as juste à écrire:

Code:

---

1 2 3 4

If Worksheets("ma_feuille").Range("M3").Value = True Then Worksheets("ma_feuille").Range("N3:R3").Copy Worksheets("ma_feuille").Range("A3").PasteSpecial Paste:=xlPasteValues End If

---

par contre, si tu passes par un "recopiage de plage, tu dois avoir des plages de même taille:

Code:

---

1 2 3 4

Worksheets("ma_feuille").Activate If Range("M3").Value = True Then Range("A3:E3").Value = Range("N3:R3").Value EndIf

---