Discussion :

[milad92]

Bonjour à tous,
Je voudrais sélectionner les cellules se trouvant dans la colonne E puis de G à M (je veux "sauter" la colonne F) à l'aide d'une macro mais lorsque j'execute mon code, Excel me sélectionne de les colonnes de E à M...(F compris...)

Code :

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

Range("E" & i, "G" & i & ":M" & i).Select

savez-vous comment faire ?

[gFZT82]

Bonjour,

Essaie avec

Code :

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

Application.Union(Range("E" & i), Range("G" & i & ":M" & i)).Select

Cordialement.

[milad92]

ça n'a pas marché

Erreur d'execution '1004'
La méthode 'Range' de l'objet '_Global' a échoué

J'ai également essayé ça mais j'obtiens le même message d'erreur (Global_ etc...) sur "set plage1"

Code :

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

1
2
3
4
5
Dim plage1 As Range
Dim plage2 As Range
Set plage1 = Range("E" & i)
Set plage2 = Range("G" & i & ":M" & i)
Application.Union(Range("plage1"), Range("plage2")).Select

[Godzestla]

Bonjour,

j'ai essayé avec l'enregistreur de macro qui me donne ceci pour la ligne 3.

Code :

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

    Range("E3,G3:M3").Select

En regardant ton code, la virgule doit je pense être entourée de ". et il manque un & après le i.

Code :

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

Range("E" & i & ",G" & i & ":M" & i).Select

Attention au select. A éviter autant que possible.

[gFZT82]

Assures-toi que ta variable i est bien renseignée

Code :

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

1
2
3
4
5
6
7
8
Dim plage1 As Range
Dim plage2 As Range
 
With Worksheets("Feuil1") ' A adapter
    Set plage1 = .Range("E" & i)
    Set plage2 = .Range("G" & i & ":M" & i)
    Application.Union(plage1, plage2).Select
End With

Cordialement.

[milad92]

Assures-toi que ta variable i est bien renseignée

SUPER !!! ça fonctionne !!!
Merci beaucoup !

Dernière question :
Existe-t-il un moyen de déclarer plage1 et plage2 une fois pour toute et utiliser application.union dans plusieurs boucles IF ?
Ceci pour éviter de retaper ça à chaque fois :

Code :

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

1
2
    Set plage1 = .Range("E" & i)
    Set plage2 = .Range("G" & i & ":M" & i)

Merci encore pour votre aide !

[gFZT82]

Tu dois te poser la question de la durée de vie et de la portée de tes variables plage1 et plage2.
Si elles sont déclarées avec l’instruction Dim à l’intérieur d’une procédure, elles sont utilisables autant de fois que tu le souhaites … tant que tu ne sors pas de la procédure.
Tu trouveras dans le forum plusieurs exemples sur les déclarations de variables.
Si tu veux utiliser plusieurs fois l’union de plage1 et plage2, tu peux déclarer directement cette plage (MaPlage).

Code :

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

1
2
3
4
5
6
7
 
Dim MaPlage As Range
 
With Worksheets("Feuil1") ' A adapter
    Set MaPlage = Application.Union(.Range("E" & i), .Range("G" & i & ":M" & i))
    MaPlage.Select
End With

Cordialement.

[Godzestla]

Re, IF n'est pas et ne sera jamais une boucle !.

Si tu as vu ma réponse, tu peux très bien mettre la valeur de ce range dans une variable et l'utiliser où bon te semble.

Salut gFZT82