Discussion :

[BLACKEYED05]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et une autre règle du forum :
__________________________________________________________________________________________

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

[Philippe Tulliez]

Bonjour Marc,

Pourquoi suis-je passé par la méthode Copy alors qu'une seule ligne suffisait

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)

[Marc-L]

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é !

[Slooby]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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