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

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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:

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 !!

23/04/2015, 11h02
dylan.pascal

Bonjour,

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

Cordialement,
23/04/2015, 11h23
parvi

En effet il ne sert à rien !!!! :)
23/04/2015, 11h48
dylan.pascal

Pense a cliquer sur le bouton "Résolu" si ton problème est corrigé, sinon dis nous ce qui vas pas ;)
23/04/2015, 11h55
parvi

Oups oublié de préciser que enlever .Select n'as rien changer au problème ....
23/04/2015, 11h57
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 :)
23/04/2015, 11h58
SfJ5Rpw8

bonjour,

sélectionne le mot with , appui ensuite sur la touche :F1: et demande toi à quoi sert cette instruction dans ton code ...
23/04/2015, 12h07
dylan.pascal

Petite question ^^

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:

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

Cordialement,,,

Dylan :)

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:

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 !!

23/04/2015, 15h12
Igloobel

bonjour,

2 propositions

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

Code:

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+
23/04/2015, 15h37
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 ....
23/04/2015, 17h56
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 ?

Citation:

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.

:koi:
24/04/2015, 09h14
parvi

1 pièce(s) jointe(s)

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, ....

Citation:

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 : Pièce jointe 175862

Bonjour,

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

essaye comme ça

Code:

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

24/04/2015, 10h52
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 ....
24/04/2015, 10h54
SfJ5Rpw8

et ou il est le code qui teste la valeur entrée ?
24/04/2015, 10h55
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
24/04/2015, 11h00
parvi

bbil :

Citation:

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

Je ne comprend pas ?? :?
24/04/2015, 11h05
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:

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
24/04/2015, 14h16
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" .... :(

Voir 40 message(s) de cette discussion en une page