Méthode select de la classe range...

[Dolichotis]

Bonjour,

Je rencontre souvent ce problème mais je ne sais pas comment le résoudre, parfois, il se résoudre tout seul( ça plante une fois sur deux) parfois non.

'envoyer de l'abeille_Minute à l'objet
        derCol = wsMinute.Cells(14, 256).End(xlToLeft).Column
        For Gr = 17 To derCol
                [COLOR="Red"]wsMinute.Cells(Lig, Gr).Select[/COLOR]
            While (Selection.Interior.ColorIndex = 15)
                Gr = Gr + 1
                wsMinute.Cells(Lig, Gr).Select
            Wend
            Selection.Copy
            wsobjet.Range("D" & ligP).PasteSpecial xlPasteValues
        Next

En rouge, la ligne qui plante. Quand je regarde les valeurs des variables, elle marche très bien mais ça plante quand même.
J'ai bien spécifié la feuille concernée. Ce qui est curieux c'est que j'ai utilisé Cells et il me dit que range a échoué...
J'ai essayé activate, ça ne marche pas mieux.

Je débute en VBA et je pige pas tout, j'apprends un peu sur le tas...
Donnez-moi vos astuces pour que je comprenne ce qui cloche avec ce genre d'instruction...
Je laisse le code complet du fichier (uniquement le code)

Merci !

 

[tototiti2008]

Re : Méthode select de la classe range...

Bonjour Dolichotis,

pour sélectionner une plage d'une feuille, il faut d'abord activer la feuille

wsMinute.Activate

ceci dit je ne sais pas pourquoi tu sélectionne ta cellule...

 

[Dolichotis]

Re : Méthode select de la classe range...

Bonjour Tototiti,

J'ai essayé d'activer et ça marche. Je pensais que quand la feuille était déjà active, il n'était pas nécessaire de l'activer !
(Je la sélectionnais pour tester sa couleur)

Maintenant, je le saurais pour la prochaine fois.

Merci beaucoup !

 

[tototiti2008]

Re : Méthode select de la classe range...

normalement, si elle est déjà active, pas besoin de l'activer mais bon...

 

[Roland_M]

Re : Méthode select de la classe range...

bonjour

est-ce que la variable "Lig" est toujours bien initialisée !?
dans cette ligne de code >>> wsMinute.Cells(Lig, Gr).Select
car si elle est parfois = 0 c'est plantage !

Roland

 

[tototiti2008]

Re : Méthode select de la classe range...

Bonjour Roland_M,

je suppose que Dolichotis ne nous a pas envoyé l'intégralité de son code, donc difficile de répondre, mais ta remarque est judicieuse.

 

[Dolichotis]

Re : Méthode select de la classe range...

Bonjour roland_M

J'ai bien regardé les 2 variables étaient initialisées. Par contre, je comprends pas pourquoi cette méthode marche très bien mais plante (échoue) quand je rajoute un bout de code... (une boucle)
Un partie de vba reste un mystère pour moi... mais je ne demande qu'à apprendre !

 

[Roland_M]

Re : Méthode select de la classe range...

re

il me semble qu'il y a une anomalie avec Gr que tu utilises avec For
et dans cette même boucle tu initialises Gr = Gr + 1 !!!??? pas catholique du tout !
il faudrait peut être transférer la variable à une autre pour utiliser le compteur + 1
Exemple: SvgGr = Gr puis SvgGr = SvgGr + 1
et ne pas oublier de modifier dans While la variable wsMinute.Cells(Lig, SvgGr).Select !!!

For Gr = 17 To derCol <<<<<<<<<<<<<<<<<<
wsMinute.Cells(Lig, Gr).Select
While (Selection.Interior.ColorIndex = 15)
Gr = Gr + 1 <<<<<<<<<<<<<<<<< !!!???
wsMinute.Cells(Lig, Gr).Select
...
Roland

 

[tototiti2008]

Re : Méthode select de la classe range...

en effet, Roland_M a raison, il faut éviter de toucher trop à la variable compteur d'une boucle For... moi j'ai tendance à ne pas y toucher du tout d'ailleurs 🙂.

 

[Pierrot93]

Re : Méthode select de la classe range...

Bonjour à tous

essaye peut être comme suit, mais je ne vois pas l'initialisation de certaines variables (lig et ligp) !!!

   For gr = 17 To wsMinute.Cells(14, 256).End(xlToLeft).Column
        If wsMinute.Cells(Lig, gr).Interior.ColorIndex = 15 Then
             wsobjet.Range("D" & ligP).value = wsMinute.Cells(Lig, gr).value
        End If
    Next gr

bonne soirée
@+

 

[Dolichotis]

Re : Méthode select de la classe range...

Bonjour à tous

essaye peut être comme suit, mais je ne vois pas l'initialisation de certaines variables (lig et ligp) !!!

   For gr = 17 To wsMinute.Cells(14, 256).End(xlToLeft).Column
        If wsMinute.Cells(Lig, gr).Interior.ColorIndex = 15 Then
             wsobjet.Range("D" & ligP).value = wsMinute.Cells(Lig, gr).value
        End If
    Next gr

bonne soirée
@+

Bonjour à tous, pierrot, roland, tototiti,

Effectivement, roland, j'ai sans doute fait trop de boucles, trop d'incrémentations... Par contre, j'avais initialisé les variables dans mon programmes mais je l'ai pas mis ici.

Merci pour le code rectifié, pierrot même si pour moi, ça serait plus :

wsMinute.Cells(Lig, gr).Interior.ColorIndex <> 15 Then

Je vais tester.

Bonne journée à tous