Erreur Worksheets("AMT").Activate. Active

Invité · 07/06/2019, 10h17

Bonjour,
Je viens vers vous parce que j'ai une erreur dans un code, mais l'erreur est assez étrange, fin je vois as du tout pourquoi cela ne fonctionne pas :

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
18
19
20
Private Sub Workbook_Open() 'à l'ouverture du classeur
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim L As String 'déclare la variable L (Liste)
 
Set O = Worksheets("AMT") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A2").CurrentRegion 'définit le tableau des valeur TV
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeur TV (en partant de la seconde)
    L = "FTM" & Split(TV(I, 1), " ")(1) & "01" 'initialise la liste L
    For J = 2 To 40 'boucle de 2 à 40 (remplace par 50 si nécessaire car c'est pas clair dans ton explication)
        L = L & "," & "FTM" & Split(TV(I, 1), " ")(1) & CStr(Format(J, "00")) 'redéfinit la liste L
    Next J 'prochaine valeur de la boucle
    With O.Cells(I, "D").Validation 'prend en compte la validation de donnée dans la cellule ligne I colonne D
        .Delete 'supprime une éventuelle ancienne validation de donnée
        .Add xlValidateList, Formula1:=L 'définit la liste L comme liste de validation de donnée
    End With 'fin de la prose en compte dela validation de donnée dans la cellule ligne I colonne D
Next I 'prochaine ligne de la boucle
O.Activate.Active L 'onglet O
End Sub

Merci de m'éclairer sur une éventuelle erreur sachant que l'erreur est tout en bas à la dernière ligne : Fonction ou variable attendue

**MarcelG** · 07/06/2019, 10h32

Bonjour et Bonjour au Forum,

Code :

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

O.Activate.Active L

A mon avis, il y a une concaténation inopportune .

Remarque. Après traitement, il est toujours de bon aloi de libérer une variable affectée à un objet

Code :

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

Set o = Nothing

Invité · 07/06/2019, 10h35

bonjour Marcel,
Je te remercie de ton aide,
Dans ce cas là, (meme si je supprime la dernière ligne et mettant aussi en haut Set o= nothing) J'ai comme erreur l'indice n'appartient pas à la séléction.

Merci d'avance

**MarcelG** · 07/06/2019, 11h01

Salut,

mettant aussi en haut Set o= nothing) J

Ce n'est pas en haut qu'il faut placer cette ligne mais après traitement.
Si la variable est libérée en début de code alors celui-ci risque de na pas être effectif.

Reviens avec le code modifié en précisant
- la ligne mise en évidence (généralement sr fond jaune) par le débuggeur
- le message d'erreur

**Menhir** · 07/06/2019, 11h04

Envoyé par walido78

Code :

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

O.Activate.Active L 'onglet O

Supprime le "." devant "Active".
Remplace le part un espace et une apostrophe.

Edit : j'ai mis trop de temps à répondre. Je n'ai pas vu qu'il y avait déjà eu une réponse. Mea Culpa.

Invité · 07/06/2019, 11h06

Nom : Capture3.PNG
Affichages : 199
Taille : 187,0 Ko

Bonjour Marcel,
Voilà comme tu m'a dis je l'ai mis en bas et je mets Play, il me met fonction ou variable attendue en soulignant "O.activate" puis quand je met ok il surligne Private Sub workbook Open.
(Sachant que si j'enleve la "concaténation inopportune" et en mettant play, j'ai "l'indice n'appartient pas à la séléction" sans surlignage)

Cordialement

Invité · 07/06/2019, 11h08

Envoyé par Menhir

Supprime le "." devant "Active".
Remplace le part un espace et une apostrophe.

Edit : j'ai mis trop de temps à répondre. Je n'ai pas vu qu'il y avait déjà eu une réponse. Mea Culpa.

Y'a pas de soucis, merci de ta réponse en tout cas,
J'ai essayé mais il me met, "l'indice n'appartient pas à la sélection sans surligner quoi que ce soit

**MarcelG** · 07/06/2019, 11h12

Salut,

"l'indice n'appartient pas à la sélection sans surligner quoi que ce soit

Cela m'étonne

Par ailleurs, si la variable TV est affectée à un objet Range alors sa déclaration doit être précédée de l'instruction Set
(Même remarque quant à la libération de cette variable)

Invité · 07/06/2019, 11h14

Oui je vois ce que tu veux dire,

J'ai testé justement aprce que j'avais lu ca aussi sur internet mais ca me met "Incompatibilité de type" (Sachant que j'ai essayé de la libérer également à la fin, mais même erreur)

**MarcelG** · 07/06/2019, 11h26

"Incompatibilité de type"

Encore une fois, sur quelle ligne (surlignée en jaune) survient cette erreur?

Invité · 07/06/2019, 11h27

Justement, il surligne rien, c'est étrange

**MarcelG** · 07/06/2019, 11h31

Salut,

Comme la discussion est au stade du 10ème post, par souci d'efficacité, adresse un classeur simplifié.

Invité · 07/06/2019, 11h31

Après quand je retire le mot SET de SET TV = .....
Il me change l'erreur en "l'indice n'appartient pas à la séléction" donc je pense que ca vient du Set mais, y'a toujours rien qu'est surligné avoant ou après cette erreur.

Le seul truc qu'était surligné (en bleu initialement), était le Activate de O.ACtivate

Invité · 07/06/2019, 11h32

Je te l'envoi avec le code dans Workbook
ESSAI (2).xlsm

**MarcelG** · 07/06/2019, 12h00

Salut,

J'ai l'impression, peut-être à tort, que tu utilises ce code sans prendre de recul nécessaire.

Quoi qu'il en soit.
Telle aurait due être ma première réaction.
Ne jamais utiliser la propriété CurentRegion pour ce type de code. La probabilité de la survenue d'une erreur est alors de 90% au minimum.
Ici, j'ai corrigé par une adresse en dure.
Je te laisse trouver le code qui génère la dernière ligne et la dernière colonne

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
18
19
20
21
22
23
Private Sub Workbook_Open() 'à l'ouverture du classeur
 
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim L As String 'déclare la variable L (Liste)
 
Set O = Worksheets("AMT") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A3:G3").Value
For I = LBound(TV, 1) To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeur TV (en partant de la seconde)
    L = "FTM" & Split(TV(I, 1), " ")(1) & "01" 'initialise la liste L
    For J = 2 To 40 'boucle de 2 à 40 (remplace par 50 si nécessaire car c'est pas clair dans ton explication)
        L = L & "," & "FTM" & Split(TV(I, 1), " ")(1) & CStr(Format(J, "00")) 'redéfinit la liste L
    Next J 'prochaine valeur de la boucle
    With O.Cells(I, "D").Validation 'prend en compte la validation de donnée dans la cellule ligne I colonne D
        .Delete 'supprime une éventuelle ancienne validation de donnée
        .Add xlValidateList, Formula1:=L 'définit la liste L comme liste de validation de donnée
    End With 'fin de la prose en compte dela validation de donnée dans la cellule ligne I colonne D
Next I 'prochaine ligne de la boucle
O.Activate 'Active L 'onglet O
Set O = Nothing
Set TV = Nothing
End Sub

Quant au processus adopté, par variable tableau, celui-ci, à mon avis, reste discutable.
Définir une plage, dont chaque cellule aurait été gérée, serait plus approprié.

Invité · 07/06/2019, 12h05

Je te remercie pour ta réponse,

Je ne savais pas que current Region générait autant d'erreur dans mon cas ici, j'ai bien compris ta manipulation remplacement pas des ranges fixes etc mais,
J'ai bien renseigné mes bonnes lignes colonnes, mais j'ai toujours la fameuse erreur ('l'indice n'appartient pas à la séléction")

**MarcelG** · 07/06/2019, 12h09

Salut,

As-tu noté que la plage débutait à la ligne 3?

Pour ma part, sur le classeur reporté, il n'y avait pas d'erreur
Le code, s'il te plaît.

Invité · 07/06/2019, 12h12

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
18
19
20
21
22
23
Private Sub Workbook_Open() 'à l'ouverture du classeur
 
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim L As String 'déclare la variable L (Liste)
 
Set O = Worksheets("AMT") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A3:G3").Value
For I = LBound(TV, 1) To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeur TV (en partant de la seconde)
    L = "FTM" & Split(TV(I, 1), " ")(1) & "01" 'initialise la liste L
    For J = 2 To 40 'boucle de 2 à 40 (remplace par 50 si nécessaire car c'est pas clair dans ton explication)
        L = L & "," & "FTM" & Split(TV(I, 1), " ")(1) & CStr(Format(J, "00")) 'redéfinit la liste L
    Next J 'prochaine valeur de la boucle
    With O.Cells(I, "D").Validation 'prend en compte la validation de donnée dans la cellule ligne I colonne D
        .Delete 'supprime une éventuelle ancienne validation de donnée
        .Add xlValidateList, Formula1:=L 'définit la liste L comme liste de validation de donnée
    End With 'fin de la prose en compte dela validation de donnée dans la cellule ligne I colonne D
Next I 'prochaine ligne de la boucle
O.Activate 'Active L 'onglet O
Set O = Nothing
Set TV = Nothing
End Sub

Mais justement dans TV elle est pas déja précisé : TV = O.Range("A3:G3").Value (je suis désolé, je sais surêment que tu vas me prendre pour un débile lol, mais c'est que j'essyae de comprendre)

Invité · 07/06/2019, 12h20

Faut que je mette ca a la fin de la boucle c'est ca ?
DerniereLigne = Range(Cel).CurrentRegion.End(xlDown).Row

**MarcelG** · 07/06/2019, 12h21

Salut,

Désolé mais je persiste.
Avec ce dernier code, sur la base du classeur, que tu as reporté dans cette discussion, aucune erreur n'est survenue sur mon poste de travail.

Erreur Worksheets("AMT").Activate. Active

Macros et VBA Excel

Discussions similaires

Partager

Partager