Discussion :

[pavlina13]

Bonjour,

Un partie de mon code doit se placer sur la cellule trouvée pour ensuite la transformer en plage afin de venir y exécuter des actions cellule par cellule.
Le problème est que le code m'affiche une erreur : '1004' erreur définie par l'application ou par l'objet.

voici la totalité du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If Worksheets(Sh).Cells(ligne, 3).Value = 2 Then
Worksheets(Sh).Cells(ligne, 3).Activate
    ActiveCell.Offset(5, 3).Select      '1ere DESTINATION
    Set Myrange = Range(ActiveCell, ActiveCell.Offset(0, 10)).Select
        For Each cel In Myrange.Cells
            If cel = 0 Or cel = "" Then Exit For
            MAG = ActiveCell.Offset(0, -1).Value
                Do
                a = 2
                    If Worksheets("VERIF + PLANNING").Cells(a, 1).Value = MAG Then
                        Worksheets("VERIF + PLANNING").Cells(a, 2) = "X"
                Exit Do
                    Else
                    a = a + 1
                    End If
                Loop
        Next

[Jean-Philippe André]

SAlut
ActiveCell ca existe, mais si tu peux t'en passer, fais le :

Code :

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

1
2
Worksheets(Sh).Cells(ligne, 3).Activate
    ActiveCell.Offset(5, 3).Select

devient alors

Code :

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

Worksheets(Sh).Cells(ligne, 3).Offset(5, 3).Select

et meme

Code :

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

Worksheets(Sh).Cells(ligne+5, 6).Select

ce qui signifie ensuite que ton

Code :

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

Set Myrange = Range(ActiveCell, ActiveCell.Offset(0, 10)).Select

en plus d'etre maladroit, doit devenir

Code :

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

Set Myrange = Worksheets(Sh).Range(Worksheets(Sh).Cells(ligne+5, 6), Worksheets(Sh).Cells(ligne+5, 16))

[pavlina13]

Je te remercie, le code maintenant marche du tonnerre sur cette partie!

J'ai également un second soucis concernant l'utilisation de FOR EACH et NEXT.
Apres plusieurs erreurs "Each sans For" je me suis résolue à ajouter un Exit For sur la ligne du IF.
Cela n'était pas une bonne idée car une fois qu'une cellule remplie la condition il ne vérifiera pas les prochaines car il quitte FOR EACH sans repasser par NEXT.

Auriez-vous une idée de comment procéder?

[Jean-Philippe André]

TU peux remplacer ton

Code :

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

If cel = 0 Or cel = "" Then Exit For

Par un

Code :

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

1
2
If Not (cel = 0 Or cel = "") Then 
'suite du code

[pavlina13]

En faisant ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If Worksheets(Sh).Cells(ligne, 3).Value = 2 Then      '1ere DESTINATION
    Worksheets(Sh).Cells(ligne, 3).Offset(5, 3).Select
    Set Myrange = Worksheets(Sh).Range(Worksheets(Sh).Cells(ligne + 5, 6), Worksheets(Sh).Cells(ligne + 5, 16))
        For Each cel In Myrange.Cells
            If Not (cel = 0 Or cel = "") Then
            MAG = ActiveCell.Offset(0, -2).Value
                a = 2
                Do
                    If Worksheets("VERIF + PLANNING").Cells(a, 1).Value = MAG Then
                        Worksheets("VERIF + PLANNING").Cells(a, 2) = "X"
                Exit Do
                    Else
                    a = a + 1
                    End If
                Loop
        Next

J'ai toujours ce message d'erreur me disant "Next sans For". Est ce que ce ne serait pas le NEXT qui est mal placé par hasard? J'ai essayé quelques changements de place sans résultat...

[BENNASR]

bonjour
si tu supprime

Code :

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

Exit Do

qu'est ce que ça donne ??