erreur 91, variable non défini ou variable de bloc with

essaye et dis nous ce qu'il en est

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Change(ByVal Target As Range) Dim MaPlage As Range   For i = 0 To 22   Set MaPlage = Range("E" & 673 + 3 * i & ":P" & 673 + 3 * i)   If Not Intersect(Target, MaPlage) Is Nothing _ And Target.Value <> "0" Then Worksheets("renouvel életro details").Activate End If   Next i   Set MaPlage = Nothing   End Sub

---

J'ai honte, mais ça marche !!!!!!!!!! :)

Merci beaucoup !!!

Je crois que je vais chercher trop loin dans des codes alors que celui-là était évident ...... je ne doit pas être fait pour écrire du VBA !!!

pour en rajouter une couche, il y a une erreur que je n'avais pas vu !!!!

Quand je sélectionne mes données et veut les supprimer cela s'exécute mais me renvoie automatiquement sur ma fiche "renouvel életro details".

Une idée comment résoudre ce problème ?

je te laisse chercher comme précédemment ?

il faut ajouter une condition pour exclure le cas où la cellule est vide


par ailleurs, il serait également opportun d'écarter le cas où tu modifies plusieurs cellules d'un coup ?
pour celle là, je te la donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_Change(ByVal Target As Range) Dim MaPlage As Range   If Target.Cells.Count > 1 Then Exit Sub   For i = 0 To 22   Set MaPlage = Range("E" & 673 + 3 * i & ":P" & 673 + 3 * i)   If Not Intersect(Target, MaPlage) Is Nothing _ And Target.Value <> "0" Then Worksheets("renouvel életro details").Activate End If   Next i   Set MaPlage = Nothing   End Sub

---

Étant fatigué par Excel, je préfère remettre cela à demain !!!
Mais si tu as la réponse je suis preneur ;) car j'en ai un peu marre ....

merci beaucoup en tout cas !!!!

je te laisse remettre à demain pour que tu tentes de faire ça tout seul

l'exercice est similaire à ce qu'on a fait pour détecter que la cellule n'est pas à 0

te donner la réponse toute faite ne t'aidera pas pour tes futurs développements ... même si d'un autre côté ça serait beaucoup plus simple pour moi de te donner le code au lieu de t'aider à comprendre et mettre en pratique ;)

Bonjour à tous !!

Après une bonne pause grâce au week-end, ça y est, j'ai trouver la réponse !!!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Worksheet_Change(ByVal Target As Range) Dim MaPlage As Range   If Target.Cells.Count > 1 Then Exit Sub If Target.Cells.Count = "" Then Exit Sub   For i = 0 To 22   Set MaPlage = Range("E" & 673 + 3 * i & ":P" & 673 + 3 * i)   If Not Intersect(Target, MaPlage) Is Nothing _ And Target.Value <> "0" Then Worksheets("renouvel életro details").Activate End If   Next i   Set MaPlage = Nothing   End Sub

---

Bon il n'y avait pas grand chose à rajouter ...

Merci joe.levrai d'avoir pris de ton temps pour m'expliquer le fonctionnement de ce code !!!!

A+

Bonjour,

je suis surpris que ta condition réalise bien ton souhait 8O

en effet, tu testes le nombre de cellules ici :

Code:

---

If Target.Cells.Count = "" Then Exit Sub

---

d'ailleurs, Count représente un nombre entier et pas une chaine de caractère

j'aurais plutôt fait ainsi

Code:

---

If Target.Value = "" Then Exit Sub

---

Oups tu as raisons !!!

C'est bien :

Code:

---

If Target.Value = "" Then Exit Sub

---

Une erreur de recopiage de la formule !!! :)