Discussion :

[parvi]

Bonjour à tous !!

Tout nouveau dans le forum et dans le langage VBA j'ai un problème ....

Je veux créer un code VBA qui me permet de lancer une macro quand je met une valeur sur une plage de donnée (répéter 3 lignes plus bas (avec une boucle)). Pour lancer cette macro la valeur doit être différente de "0", et la macro renvoie vers une autre feuille.

Mais une erreur persiste : erreur d'exécution "91" : variable objet ou variable de bloc With non définie

Voici mon code de VBA rattacher à la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
For i = 0 To 22
Set maplage = Range("E" & 673 + 3 * i & ":P" & 673 + 3 * i)
 
If Not Application.Intersect(Target, Range("E" & 673 + 3 * i & ":P" & 673 + 3 * i)) <> 0 Then renvoie_fiche_details_renouvellement
 
Next i
End Sub

l'erreur se situe à la ligne 7

et voici le code du module :

Code :

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

1
2
3
4
5
Sub renvoie_fiche_details_renouvellement()
 
      With Sheets("renouvel életro details").Select
      End With
End Sub

Merci pour votre aide !!!
et si je n'ai pas été assez claire n'hésitez pas !!

[dylan.pascal]

Bonjour,

Je pense qu'il n'y a pas besoin du .Select a la fin de ton With

Cordialement,

[parvi]

En effet il ne sert à rien !!!!

[dylan.pascal]

Pense a cliquer sur le bouton "Résolu" si ton problème est corrigé, sinon dis nous ce qui vas pas

[parvi]

Oups oublié de préciser que enlever .Select n'as rien changer au problème ....

[dylan.pascal]

D'accord alors essaye de remplacer "With Sheets ..." par "With Worksheets", j'utilise comme ceci les With dans mes macros et je n'ai eu aucun problème

Cordialement,

Dylan

[SfJ5Rpw8]

bonjour,

sélectionne le mot with , appui ensuite sur la touche :F1: et demande toi à quoi sert cette instruction dans ton code ...

[dylan.pascal]

Mais au fait que fais exactement ta fonction : "renvoie_fiche_details_renouvellement" ? Si c'est pour renvoyer l'utilisateur a la feuille "fiche_details_renouvellement" à

la fin de ta macro , tu n'as qu'a ajouté a la fin de ta condition If :

Code :

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

 Then Worksheets("renouvel életro details").Activate

Cordialement,,,

Dylan

[parvi]

mais oui dylan.pascal tu as raison je me suis embêté pour rien avec la macro car je veux renvoyer l'utilisateur à la feuille "fiche_details_renouvellement" quand il tape une valeur différente de "0". Et comme ça cela résout le problème de With, bbil

Cependant le problème persiste .....

je penche pour définir une variable mais je ne comprend pas bien son fonctionnement/utilité malgré tout les informations fournis par internet dessus ...!!!
J'ai essayer :
"Dim i As Integer" pour définir la variable i mais cela ne marche pas. Je doit être à côté de la plaque !!!

Voici le nouveau code plus propre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 0 To 22
 
Set maplage = Range("E" & 673 + 3 * i & ":P" & 673 + 3 * i)
 
If Application.Intersect(Target, Range("E" & 673 + 3 * i & ":P" & 673 + 3 * i)) <> 0 Then Worksheets("renouvel életro details").Activate
 
 
Next i
 
End Sub

Si vous avez des idées !!

[Igloobel]

bonjour,

2 propositions

1) dans un module déclare ton i en public ex:

Code :

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

Public i as long

2) je pense que ton problème viens de ton target qui doit être mal utilisé pour avoir un range je serai tenté de dire un truc du genre Target.adress ou Target.range ...

c'est juste une proposition sans garantie que cela fonctionne ou que ce soit cela

A+

[parvi]

tout d'abord je vous remercie pour vos réponses !!!

Igloobel: j'ai essayé la première proposition mais sans succès ... pour le changement du Target en Target.adress ou Target.range j'ai essayer de les placer à divers endroit de la ligne 7 mais idem ....

[SfJ5Rpw8]

Je comprends pas ce que tu fais ....... tu essais au hasard tu lance les dés puis tu écrit target ou Target.adress sans savoir de que c'est ...?


re-dis nous ce que tu veux faire .. pourquoi faire une boucle de 0 à 22 alors que tu n'en dis rien dans ton descriptif ?

Je veux créer un code VBA qui me permet de lancer une macro quand je met une valeur sur une plage de donnée (répéter 3 lignes plus bas (avec une boucle)). Pour lancer cette macro la valeur doit être différente de "0", et la macro renvoie vers une autre feuille.

[parvi]

Ok je n'ai pas été très claire

J'ai joint un fichier si cela permet d'être plus facile à me faire comprendre !!
Je doit remplir une ligne sur 3 (ligne mensuel), des données, sur un ensemble de 22 villes, (d'où la boucle de 0 à 22). Si la valeur rentrée est égal à 0 alors je ne fais rien, mais si différentes alors j'ouvre automatiquement un nouvel onglet (renouvel életro details) ou je peux mettre des détails plus précis. Et je fais cela sur plusieurs thèmes, Renouvellement élecro. PROGRAMME, Renouvellement pompe, ....

Je comprends pas ce que tu fais ....... tu essais au hasard tu lance les dés puis tu écrit target ou Target.adress sans savoir de que c'est ...?

Non, je me renseigne sur la commande en amont, puis j’essaie plusieurs solutions car des fois je ne comprend pas tout .... (cela fait 2 jours que je me lance dans les macros)

Voilà en espérant avoir été plus claire !!!
merci

le lien : test macro.xlsm

[joe.levrai]

Bonjour,

c'est ton utilisation de Intersect qui était à revoir

essaye comme ça

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
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 Then
        Worksheets("renouvel életro details").Activate
    End If
 
Next i
 
Set MaPlage = Nothing
 
End Sub

[parvi]

En effet l'utilisation de Intersect n'était pas la bonne .... Merci joe.levrai

Cependant le code s'applique sans prendre en compte les valeurs des cellules, c'est à dire quand je rentre la donnée "0" il m'envoie quand même sur l'onglet "renouvel életro details"

Je vais essayer de résoudre cela ....

[SfJ5Rpw8]

et ou il est le code qui teste la valeur entrée ?

[joe.levrai]

Ah c'était donc ça ton "<>0" !!

bon c'est dans tes cordes cet ajustement, je ne donne pas la solution immédiatement

là on détecte que tu as bien modifié une cellule de la plage souhaitée
maintenant, il faut détecter que le changement effectué sur la cellule lui a attribué la valeur 0 pour que l'activation de feuille se fasse

[parvi]

bbil :

et ou il est le code qui teste la valeur entrée ?

Je ne comprend pas ??

[joe.levrai]

ta façon de coder la condition "je veux activer la feuille uniquement quand j'ai modifié une cellule dans une plage définie, et que la cellule modifié est égale à 0"

Code :

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

If Application.Intersect(Target, Range("E" & 673 + 3 * i & ":P" & 673 + 3 * i)) <> 0 Then Worksheets("renouvel életro details").Activate

était tellement obscure ... que moi-même j'ai mis du temps à comprendre ta démarche

[parvi]

hé hé désoler de ne pas être très claire, je pense que j'ai un peu de mal à m’expliquer ....

Après 2h d'acharnement je n'arrive toujours pas à demander au code de prendre en compte le fameux "<> 0" ....