Dans une procédure Sub j'utilise le code suivant:
Sub Select_Zone()
Dim Nom
Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col)
For i = 1 To 5
Nom = Range(Cells(1, i)).Value 'Entete des colonnes
'Selection des cellules de la colonne i
Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select
'Donne un nom à la sélection
Names.Add Name:=Nom, RefersTo:=Selection
Next
End Sub
au niveau de la ligne Range(Cells(2, i), Range(Cells(2,
i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
En fait j'ai remplacé les valeurs de la fonction suivante par des cells:
Range("A1", Range("A1").End(xlToRight)).Select
Auriez-vous la solution
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Yoyo
Bonjour,
Si tu as fait un copier/coller de ta procédure, il te suffit de modifier xIDown par xlDown (xi par xl).
Amicalement
"Dominique33" a écrit dans le message de news:
Bonjour à tous,
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur. En fait j'ai remplacé les valeurs de la fonction suivante par des cells: Range("A1", Range("A1").End(xlToRight)).Select Auriez-vous la solution
Bonjour,
Si tu as fait un copier/coller de ta procédure, il te suffit de modifier
xIDown par xlDown (xi par xl).
Amicalement
"Dominique33" <diabolobx@hotmail.com> a écrit dans le message de
news:ObT4wpNKGHA.3164@TK2MSFTNGP11.phx.gbl...
Bonjour à tous,
Dans une procédure Sub j'utilise le code suivant:
Sub Select_Zone()
Dim Nom
Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col)
For i = 1 To 5
Nom = Range(Cells(1, i)).Value 'Entete des colonnes
'Selection des cellules de la colonne i
Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select
'Donne un nom à la sélection
Names.Add Name:=Nom, RefersTo:=Selection
Next
End Sub
au niveau de la ligne Range(Cells(2, i), Range(Cells(2,
i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
En fait j'ai remplacé les valeurs de la fonction suivante par des cells:
Range("A1", Range("A1").End(xlToRight)).Select
Auriez-vous la solution
Si tu as fait un copier/coller de ta procédure, il te suffit de modifier xIDown par xlDown (xi par xl).
Amicalement
"Dominique33" a écrit dans le message de news:
Bonjour à tous,
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur. En fait j'ai remplacé les valeurs de la fonction suivante par des cells: Range("A1", Range("A1").End(xlToRight)).Select Auriez-vous la solution
AV
Sous réserve que ton tableau soit en A1:Exx, pas besoin de boucle, ceci devrait suffire :
Le message d'erreur persiste: Erreur d'exécution 1004 La méthode Range de l'objet "__Global" a échoué
Amicalement
"Yoyo" a écrit dans le message de news:43e380de$0$18314$
Bonjour,
Si tu as fait un copier/coller de ta procédure, il te suffit de modifier xIDown par xlDown (xi par xl).
Amicalement
"Dominique33" a écrit dans le message de news:
Bonjour à tous,
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur. En fait j'ai remplacé les valeurs de la fonction suivante par des cells: Range("A1", Range("A1").End(xlToRight)).Select Auriez-vous la solution
Désolé,
Le message d'erreur persiste:
Erreur d'exécution 1004 La méthode Range de l'objet "__Global" a échoué
Amicalement
"Yoyo" <Yoyo@Tu_m_auras_pas.fr> a écrit dans le message de
news:43e380de$0$18314$8fcfb975@news.wanadoo.fr...
Bonjour,
Si tu as fait un copier/coller de ta procédure, il te suffit de modifier
xIDown par xlDown (xi par xl).
Amicalement
"Dominique33" <diabolobx@hotmail.com> a écrit dans le message de
news:ObT4wpNKGHA.3164@TK2MSFTNGP11.phx.gbl...
Bonjour à tous,
Dans une procédure Sub j'utilise le code suivant:
Sub Select_Zone()
Dim Nom
Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col)
For i = 1 To 5
Nom = Range(Cells(1, i)).Value 'Entete des colonnes
'Selection des cellules de la colonne i
Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select
'Donne un nom à la sélection
Names.Add Name:=Nom, RefersTo:=Selection
Next
End Sub
au niveau de la ligne Range(Cells(2, i), Range(Cells(2,
i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
En fait j'ai remplacé les valeurs de la fonction suivante par des cells:
Range("A1", Range("A1").End(xlToRight)).Select
Auriez-vous la solution
Le message d'erreur persiste: Erreur d'exécution 1004 La méthode Range de l'objet "__Global" a échoué
Amicalement
"Yoyo" a écrit dans le message de news:43e380de$0$18314$
Bonjour,
Si tu as fait un copier/coller de ta procédure, il te suffit de modifier xIDown par xlDown (xi par xl).
Amicalement
"Dominique33" a écrit dans le message de news:
Bonjour à tous,
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur. En fait j'ai remplacé les valeurs de la fonction suivante par des cells: Range("A1", Range("A1").End(xlToRight)).Select Auriez-vous la solution
Yoyo
Re,
Tu devrais essayer la proposition de AV, mais pour ton souci, j'essaierais bien
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
Re,
Tu devrais essayer la proposition de AV, mais pour ton souci, j'essaierais
bien
Dans une procédure Sub j'utilise le code suivant:
Sub Select_Zone()
Dim Nom
Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col)
For i = 1 To 5
Nom = Range(Cells(1, i)).Value 'Entete des colonnes
'Selection des cellules de la colonne i
Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select
'Donne un nom à la sélection
Names.Add Name:=Nom, RefersTo:=Selection
Next
End Sub
au niveau de la ligne Range(Cells(2, i), Range(Cells(2,
i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
Dominique33
Ah ! Fonctionne impeccablement. En te remerciant Cordialement Dominique
"Yoyo" a écrit dans le message de news:43e389d7$0$18311$
Re,
Tu devrais essayer la proposition de AV, mais pour ton souci, j'essaierais bien
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
Ah !
Fonctionne impeccablement.
En te remerciant
Cordialement
Dominique
"Yoyo" <Yoyo@Tu_m_auras_pas.fr> a écrit dans le message de
news:43e389d7$0$18311$8fcfb975@news.wanadoo.fr...
Re,
Tu devrais essayer la proposition de AV, mais pour ton souci, j'essaierais
bien
Dans une procédure Sub j'utilise le code suivant:
Sub Select_Zone()
Dim Nom
Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col)
For i = 1 To 5
Nom = Range(Cells(1, i)).Value 'Entete des colonnes
'Selection des cellules de la colonne i
Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select
'Donne un nom à la sélection
Names.Add Name:=Nom, RefersTo:=Selection
Next
End Sub
au niveau de la ligne Range(Cells(2, i), Range(Cells(2,
i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
Dominique33
Ok, Cela fonctionne à merveille Encore merci Cordialement
"Yoyo" a écrit dans le message de news:43e389d7$0$18311$
Re,
Tu devrais essayer la proposition de AV, mais pour ton souci, j'essaierais bien
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
Ok, Cela fonctionne à merveille
Encore merci
Cordialement
"Yoyo" <Yoyo@Tu_m_auras_pas.fr> a écrit dans le message de
news:43e389d7$0$18311$8fcfb975@news.wanadoo.fr...
Re,
Tu devrais essayer la proposition de AV, mais pour ton souci, j'essaierais
bien
Dans une procédure Sub j'utilise le code suivant:
Sub Select_Zone()
Dim Nom
Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col)
For i = 1 To 5
Nom = Range(Cells(1, i)).Value 'Entete des colonnes
'Selection des cellules de la colonne i
Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select
'Donne un nom à la sélection
Names.Add Name:=Nom, RefersTo:=Selection
Next
End Sub
au niveau de la ligne Range(Cells(2, i), Range(Cells(2,
i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
Dans une procédure Sub j'utilise le code suivant: Sub Select_Zone() Dim Nom Worksheets(2).Activate
' Essai de selection zone cells(Ligne,col) For i = 1 To 5 Nom = Range(Cells(1, i)).Value 'Entete des colonnes 'Selection des cellules de la colonne i Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select 'Donne un nom à la sélection Names.Add Name:=Nom, RefersTo:=Selection Next
End Sub au niveau de la ligne Range(Cells(2, i), Range(Cells(2, i)).End(xIDown)).Select, Excel me renvoi un message d'erreur.
