Discussion :

[erunoyobgd]

Bonjour,

Je suis nouvelle sur ce forum débutante en vba, je m'excuse d'avance si je n'expose pas mon problème de la meilleure des façons.

J'ai une erreur sur ce code :

Code :

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

1
2
3
4
5
'cette ligne de code me renvoie une erreur 1004 :
Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(Semaines_P1 + 1, 3))
 
'alors que cette ligne de code fonctionne :
Set Maplage = Worksheets("Calendrier scolaire").Range("B2:C" & (Semaines_P1 + 1))

Ce code est dans un module. J'ai déclaré MaPlage as Range.
J'aimerais pouvoir utiliser l'écriture en Cells plutôt que celle avec le nom des colonnes en lettre car je souhaite piloter mes plages de cellules via des variables Integer. Pourriez-vous m'expliquer la différence entre mes 2 lignes de code qui génère une erreur sur la 1ère et pas sur la 2ème ligne ?

___________________________________________________________________________

J'ai réussi à contourner le problème en écrivant le code ainsi :

Code :

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

1
2
3
4
5
6
7
8
'cette partie de code fonctionne bien
With ThisWorkbook.Worksheets("Calendrier scolaire")
    Set MaPlage = .Range(.Cells(2, 2), .Cells(Semaines_P1 + 1, 3))
End With
MaPlage.Copy
With Worksheets("Gestion des prets").Range("A4")
    .PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End With

Je poursuis mon code avec un copier-coller et je change juste de feuille. Mais j'ai de nouveau une erreur 1004 sur la partie qui suit (et si je remplace les .Cells(),.Cells() par un range("A3:H3") ça fonctionne...

Code :

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

1
2
3
4
5
With ThisWorkbook.Worksheets("Gestion des prets")
    Set MaPlage = .Range(.Cells(3, 1), .Cells(3, Semaines_P1))  'le programme s'arrête ici et me renvoie une erreur 404 alors que pour moi, c'est exactement la même écriture que les lignes du dessus qui fonctionnent.
End With
MaPlage.Merge
MaPlage.Value = "Période 1"

En vous remerciant pour votre aide

[Belga16]

Vérifiez le contenu de "Semaines_P1", avant l'instruction :

Code :

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

Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(Semaines_P1 + 1, 3))

via

Code :

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

1
2
MsgBox Semaines_P1 'ou bien
Debug.Print Semaines_P1

[erunoyobgd]

Debug.Print Semaines_P1 ne me donne rien
MsgBox Semaines_P1 me donne 8
Dans les variables locales il est écrit

Semaines_P1="8" Type Variant/String

(Semaines_P1 vient d'une InputBox)

Je viens d'essayer de faire :
Semaines_P1=Val(Semaines_P1) et là, ça fonctionne !
Ce que je ne m'explique pas, c'est pourquoi cela a marché après ma modifications sur la première sélection. Mais, je suis beaucoup trop novice pour comprendre.

En tout cas, merci beaucoup

[erunoyobgd]

En revanche, pourriez-vous m'expliquer pour ce code avec Cells() ne fonctionne pas (cela me renvoie une erreur 1004).
J'ai ôté toute variable pour éliminer ce problème :

Code :

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

1
2
3
4
5
'cette ligne de code me renvoie une erreur 1004 :
Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(9, 3))
 
'alors que cette ligne de code fonctionne :
Set Maplage = Worksheets("Calendrier scolaire").Range("B2:C9")

Ce code est dans un module. J'ai déclaré MaPlage as Range.
J'aimerais pouvoir utiliser l'écriture en Cells plutôt que celle avec le nom des colonnes en lettre car je souhaite piloter mes plages de cellules via des variables Integer. Pourriez-vous m'expliquer la différence entre mes 2 lignes de code qui génère une erreur sur la 1ère et pas sur la 2ème ligne ?

Merci pour votre aide

[fraflt69]

Bonjour

il faut connaitre l'objet auquel se réfère la propriété Cells me semble t-il!
C'est donc Worksheets(...).Cells.
Et à quoi se rapporte le WorkSheet, à un classeur me direz-vous, alors On peut écrire ThisWorkbook.Worksheets("ma feuille") et si on ouvre plusieurs classeurs, Workbooks("mon workbook.xls").Worksheets("ma feuille").Cells(ligne, colonne).

[erunoyobgd]

J'avais rajouté le Workbooks("...") mais ça ne change rien à l'erreur.
Ensuite, avec juste une cellule donc Workbooks("mon workbook.xls").Worksheets("ma feuille").Cells(ligne, colonne) cela fonctionne.
C'est quand je veux sélectionner une plage de cellules donc du type Workbooks("mon workbook.xls").Worksheets("ma feuille").Range(Cells(ligne, colonne),Cells(ligne,colonne)) que cela me renvoie une erreur.

Mais peut-être n'ai-je pas interprété correctement votre réponse.

[Belga16]

Le fait que "Debug.Print Semaines_P1 ne donne rien" est source de problème.
Vous avez raison de prendre Val(InputBox) car cells(x,y) s'attend à ce que x soit un nombre dans votre cas.
Où en êtes-vous pour l'instant ?

[Qwazerty]

Salut

Code :

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

1
2
3
4
5
6
7
8
'cette partie de code fonctionne bien
With ThisWorkbook.Worksheets("Calendrier scolaire")
    Set MaPlage = .Range(.Cells(2, 2), .Cells(Semaines_P1 + 1, 3))
End With
MaPlage.Copy
With Worksheets("Gestion des prets").Range("A4")
    .PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End With

Je vois que dans les exemple suivant, tu sembles avoir abandonné cette écriture, tu devrais persévérer dans ce sens, il faut absolument, comme le dit fraflt69, que les cells soit rattacher à la même feuille que le range global, sinon tu auras aussi une erreur.

Comment as-tu déclaré Semaines_P1 ? Quelle valeur est mise à l'intérieur et où est prise cette valeur?

++
Qwaz

[erunoyobgd]

Je vous remercie sincèrement de vos aides.
Je n'ai pas abandonné l'écriture :

Code :

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

1
2
3
With ThisWorkbook.Worksheets("Calendrier scolaire")
    Set MaPlage = .Range(.Cells(2, 2), .Cells(Semaines_P1 + 1, 3))
End With

Au contraire, je l'ai gardé et depuis que j'ai transformé ma variable Semaines_P1 en Integer (au lieu du String issu de l'InputBox) tout fonctionne.

J'essaie juste de comprendre mieux les choses et de savoir pourquoi, à l'initial, mon code ci-dessous ne fonctionnait pas :

Code :

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

1
2
3
4
5
'cette ligne de code me renvoie une erreur 1004 :
Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(9, 3))
 
'alors que cette ligne de code fonctionne :
Set Maplage = Worksheets("Calendrier scolaire").Range("B2:C9")

Car, pour moi comprendre me permet d'apprendre...


Quoiqu'il en soit et pour conclure, mon problème de base est résolu puisque j'ai trouvé grâce à vos réponses une solution à l'écriture de mon code. Merci beaucoup.

[Philippe Tulliez]

Bonjour,

J'essaie juste de comprendre mieux les choses et de savoir pourquoi, à l'initial, mon code ci-dessous ne fonctionnait pas :
'cette ligne de code me renvoie une erreur 1004 :
Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(9, 3))

Parce-que Cells est un objet de type Range qui a comme parent la feuille nommée "Calendrier scolaire" et que vous ne l'avez pas spécifié
Alors que dans cette écriture la parentalité existe

Code :

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

1
2
3
With Worksheets("Calendrier scolaire")
  Set Maplage =  .Range(.Cells(2, 2), .Cells(9, 3))
End With

Idéalement, il faudrait également préciser le parent de la feuille soit le classeur

A lire éventuellement Excel VBA - La parentalité d’un objet

[erunoyobgd]

Merci, je vais aller lire cette documentation.
Je pensais qu'en écrivant Worksheets("Calendrier scolaire").Range... je définissais justement le parent de l'objet Cells.
J'ai du chemin à parcourir !
Bonne journée

[Philippe Tulliez]

Bonjour,
C'est le point qui précède l'objet qui le relie à son parent.