Sélection d'une cellule d'une feuille
Marie155
Messages postés
11
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Pouvez vous me dire pourquoi ce code ne fonctionne pas ? j'y réfléchis depuis 1h et je ne vois vraiment pas.
"Sub blabla()
Dim Ws As Worksheet
Dim NoCol As Integer, depart As Integer
'Initialisation
NoCol = 4 '
depart = 7
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil3" Then
Ws.Cells(depart, NoCol).Select 'l'erreur se produit ici ....
'mon code qui travaille avc ActiveCell
End If
Next Ws
End Sub"
Merciiii
Pouvez vous me dire pourquoi ce code ne fonctionne pas ? j'y réfléchis depuis 1h et je ne vois vraiment pas.
"Sub blabla()
Dim Ws As Worksheet
Dim NoCol As Integer, depart As Integer
'Initialisation
NoCol = 4 '
depart = 7
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil3" Then
Ws.Cells(depart, NoCol).Select 'l'erreur se produit ici ....
'mon code qui travaille avc ActiveCell
End If
Next Ws
End Sub"
Merciiii
1 réponse
-
Bonjour,
Probable que tu modifie les valeurs dans la suite de ton code..
essaye en déplacant l'initialisation des variables..For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "Feuil3" Then NoCol = 4 ' depart = 7 '.....
Sinon, poste toute la procédure.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
