Discussion :

[Fleurey21]

Bonsoir à tous,

Est-ce que quelqu'un peut m'expliquer la différence entre les deux écritures suivantes (à part bien sûr le numéro de la ligne) :

Code :

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

Set maPlage1 = ThisWorkbook.Sheets("Etudiant").Range(Cells(nbligne + 3, 3), Cells(nbligne + 3, nbcolonne))

Code :

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

Set maPlage1 = Range(ThisWorkbook.Sheets("Etudiant").Cells(nbligne + 7, 3), ThisWorkbook.Sheets("Etudiant").Cells(nbligne + 7, nbcolonne))

Je constate que l'écriture 1 ne marche pas toujours. J'ai eu parfois avec cette écriture le message suivant "La méthode 'Cells' de l'objet _Global a échoué". Donc qu'est-ce qui peut faire qu'a certains endroits du code, elle marche et à d'autres elle ne marche pas?

merci d'avance

[mfoxy]

Hello,

Sans certitude vu que je suis en apprentissage vba
Tu pourrais peut-être modifier ta première ligne par :

Code :

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

1
2
 
Set maPlage1  = Range(ThisWorkbook.Sheets("Etudiant").Cells(nbligne + 3, 3),ThisWorkbook.Sheets("Etudiant"). Cells(nbligne + 3, nbcolonne))

Bat

[Fleurey21]

Hello,

Sans certitude vu que je suis en apprentissage vba
Tu pourrais peut-être modifier ta première ligne par :

Code :

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

1
2
 
Set maPlage1  = Range(ThisWorkbook.Sheets("Etudiant").Cells(nbligne + 3, 3),ThisWorkbook.Sheets("Etudiant"). Cells(nbligne + 3, nbcolonne))

Bat

Tu me proposes d'écrire la première ligne suivant la même syntaxe que la deuxième. Or le fond de ma question est "en quoi la différence de syntaxe entre ces deux lignes de code induit une différence lors de l'exécution?"

J'apprends vba sur le tas et il y a des tonnes du trucs qui m'échappent

[mfoxy]

Je suis désolé , j ai cru que tu ne voyais pas les incohérences entre ton code erroné et celui qui fonctionne.
Selon moi qui suis aussi loin d'être un pro.

Code :

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

Set maPlage1 = ThisWorkbook.Sheets("Etudiant").Range(Cells(nbligne + 3, 3), Cells(nbligne + 3, nbcolonne))

Dans ta ligne , nok, je constate que :
1) tu ne "dit" pas que ta variable est un Range Range(...
2) le passage ...").Range(Cells(... : pour moi il ne doit pas avoir un .Range mais un .Cells
3) dans la partie ...,Cells(nbligne..., tu n indiques pas sur quelle feuille du classeur chercher ta dernière cellule

Maintenant encore une fois je suis loin d'être une pro , et certainement aussi novice que toi.
Mais voici mon hypothèse de ton plantage de code et la ligne corriger dans mon précédent post

Bat

[eriiic]

Bonjour,

Dit autrement, avec ThisWorkbook.Sheets("Etudiant").Range(...) tu t'adresses à la feuille Etudiant
A l'intérieur tu mets Cells(nbligne + 3, 3), Cells(nbligne + 3, nbcolonne) qui s'adressent à la feuille active.
Si ce ne sont pas les mêmes, ça plante...

Tu peux aussi écrire :

Code :

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

1
2
3
with ThisWorkbook.Sheets("Etudiant")
    Set maPlage1 = Range(.Cells(nbligne + 3, 3), .Cells(nbligne + 3, nbcolonne))
End With

Le . devant .Cells dit à vba d'utiliser l'objet défini dans le with
Ce qui revient à ta 2nde syntaxe en plus léger et lisible.
eric

[Fleurey21]

merci à vous deux mfoxy et eriiic! J'ai compris!