selectionner une zone

Le
Lionel
bonjour a tous

Qu'est ce qui fait que cela

Range(Cells(p, 4), Cells(p, 35)).Select

me renvoie une erreur d'execution 1004

Merci de votre aide

Lionel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Lionel
Le #24050021
Resalut

Voila mon code


Dim p, i As Integer
p = 22
For i = 6 To 66 Step 5
Worksheets("P").Activate
Range(Cells(p, 4), Cells(p, 35)).Select
Selection.Copy
Worksheets("J").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: _
False, Transpose:úlse
p = p + 4
Next i
Par ailleurs peut on faire quelque chose comme
x¬tivesheets.name
pour revenir
sheet(x).activate ???

Merci
"isabelle" news:jbt7mn$ig1$
bonjour Lionnel,

vérifie que le focus soit sur une cellule de la feuille lors de


l'exécution de cette ligne.


--
isabelle



Le 2011-12-09 09:26, Lionel a écrit :
> bonjour a tous
>
> Qu'est ce qui fait que cela
>
> Range(Cells(p, 4), Cells(p, 35)).Select
>
> me renvoie une erreur d'execution 1004
>
> Merci de votre aide
>
> Lionel
>
>
isabelle
Le #24050011
bonjour Lionnel,

vérifie que le focus soit sur une cellule de la feuille lors de l'exécution de cette ligne.


--
isabelle



Le 2011-12-09 09:26, Lionel a écrit :
bonjour a tous

Qu'est ce qui fait que cela

Range(Cells(p, 4), Cells(p, 35)).Select

me renvoie une erreur d'execution 1004

Merci de votre aide

Lionel


isabelle
Le #24050091
sur quel version travailles-tu ?
est-ce que la macro est executer à partir d'un control CommandButton ?


x = ActiveSheet.Name

sans le "s" à Sheet

--
isabelle


Le 2011-12-09 09:57, Lionel a écrit :
Resalut

Voila mon code


Dim p, i As Integer
p = 22
For i = 6 To 66 Step 5
Worksheets("P").Activate
Range(Cells(p, 4), Cells(p, 35)).Select
Selection.Copy
Worksheets("J").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse
p = p + 4
Next i
Par ailleurs peut on faire quelque chose comme
x¬tivesheets.name
pour revenir
sheet(x).activate ???

Merci
"isabelle" news:jbt7mn$ig1$
bonjour Lionnel,

vérifie que le focus soit sur une cellule de la feuille lors de


l'exécution de cette ligne.


--
isabelle



Le 2011-12-09 09:26, Lionel a écrit :
bonjour a tous

Qu'est ce qui fait que cela

Range(Cells(p, 4), Cells(p, 35)).Select

me renvoie une erreur d'execution 1004

Merci de votre aide

Lionel








Lionel
Le #24050081
re
version 2000


"isabelle" news:jbt8jt$ig1$
et pour revenir
Sheets(x).Activate

'avec un "s" à sheets
--
isabelle


Le 2011-12-09 10:11, isabelle a écrit :
> pour revenir
> sheet(x).activate
isabelle
Le #24050071
et pour revenir
Sheets(x).Activate

'avec un "s" à sheets
--
isabelle


Le 2011-12-09 10:11, isabelle a écrit :
pour revenir
sheet(x).activate
isabelle
Le #24050131
est-ce que la macro est executé à partir d'un control CommandButton ?

si oui, mets la propriété du bouton "TakeFocusOnClic" à false

--
isabelle


Le 2011-12-09 10:12, Lionel a écrit :
re
version 2000
Lionel
Le #24051211
Re....

J'ai mis le TakeonFocus à false mais mon erreur d'execution 1004
subsiste...Je ne comprends pas d'ou cela provient...

Merci de m'aider a trouver...
Lionel


"isabelle" news:jbt9at$ig1$
est-ce que la macro est executé à partir d'un control CommandButton ?

si oui, mets la propriété du bouton "TakeFocusOnClic" à false

--
isabelle


Le 2011-12-09 10:12, Lionel a écrit :
> re
> version 2000
isabelle
Le #24051311
en supposant que p soit = à un nombre valide de no. de ligne

peut tu ajouter cette ligne
Application.Goto Cells(p, 4)
avant
Range(Cells(p, 4), Cells(p, 35)).Select

pour voir si l'erreur persiste


--
isabelle



Le 2011-12-09 16:15, Lionel a écrit :
Re....

J'ai mis le TakeonFocus à false mais mon erreur d'execution 1004
subsiste...Je ne comprends pas d'ou cela provient...

Merci de m'aider a trouver...
Lionel


"isabelle" news:jbt9at$ig1$
est-ce que la macro est executé à partir d'un control CommandButton ?

si oui, mets la propriété du bouton "TakeFocusOnClic" à false

--
isabelle


Le 2011-12-09 10:12, Lionel a écrit :
re
version 2000






Lionel
Le #24051771
Bonsoir,

Je crois qu'il faut reprendre a zero
J'ai une feuille "P" et une Feuille "J"
dans "P" les lignes ciblées (de 22, 26, 30...66 soit step4) entre les
colonnes D et AH
sont a recopier (valeurs uniquement) lorsque je clique sur un bouton de
commande (sur FEUIILE "J" )
en "J" (de 6,11, 16, soit step5) entre colonnes B et AF
Rien de bien effrayant a premiere vue mais mon code foire...

Dim p, i As Integer
p = 22
For i = 6 To 66 Step 5
Worksheets("P").Activate
Application.Goto Cells(p, 4)
Range(Cells(p, 4), Cells(p, 35)).Select
Selection.Copy
Worksheets("J").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: _
False, Transpose:úlse
p = p + 4
Next i

Ou est le Bug ?
Merci d'eclairer ma lanterne ...je suis au fond du tunnel....

Lionel
















"isabelle" news:jbtvph$5sr$

en supposant que p soit = à un nombre valide de no. de ligne

peut tu ajouter cette ligne
Application.Goto Cells(p, 4)
avant
Range(Cells(p, 4), Cells(p, 35)).Select

pour voir si l'erreur persiste


--
isabelle



Le 2011-12-09 16:15, Lionel a écrit :
> Re....
>
> J'ai mis le TakeonFocus à false mais mon erreur d'execution 1004
> subsiste...Je ne comprends pas d'ou cela provient...
>
> Merci de m'aider a trouver...
> Lionel
>
>
> "isabelle" > news:jbt9at$ig1$
>> est-ce que la macro est executé à partir d'un control CommandButton ?
>>
>> si oui, mets la propriété du bouton "TakeFocusOnClic" à false
>>
>> --
>> isabelle
>>
>>
>> Le 2011-12-09 10:12, Lionel a écrit :
>>> re
>>> version 2000
>
>
isabelle
Le #24051911
bonjour Lionel,

peut déposer ton fichier ici
http://www.cjoint.com/
et nous donner le lien de téléchargement

--
isabelle



Le 2011-12-09 18:27, Lionel a écrit :
Bonsoir,

Je crois qu'il faut reprendre a zero
J'ai une feuille "P" et une Feuille "J"
dans "P" les lignes ciblées (de 22, 26, 30...66 soit step4) entre les
colonnes D et AH
sont a recopier (valeurs uniquement) lorsque je clique sur un bouton de
commande (sur FEUIILE "J" )
en "J" (de 6,11, 16, soit step5) entre colonnes B et AF
Rien de bien effrayant a premiere vue mais mon code foire...

Dim p, i As Integer
p = 22
For i = 6 To 66 Step 5
Worksheets("P").Activate
Application.Goto Cells(p, 4)
Range(Cells(p, 4), Cells(p, 35)).Select
Selection.Copy
Worksheets("J").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse
p = p + 4
Next i

Ou est le Bug ?
Merci d'eclairer ma lanterne ...je suis au fond du tunnel....

Lionel
















"isabelle" news:jbtvph$5sr$

en supposant que p soit = à un nombre valide de no. de ligne

peut tu ajouter cette ligne
Application.Goto Cells(p, 4)
avant
Range(Cells(p, 4), Cells(p, 35)).Select

pour voir si l'erreur persiste


--
isabelle



Le 2011-12-09 16:15, Lionel a écrit :
Re....

J'ai mis le TakeonFocus à false mais mon erreur d'execution 1004
subsiste...Je ne comprends pas d'ou cela provient...

Merci de m'aider a trouver...
Lionel


"isabelle" news:jbt9at$ig1$
est-ce que la macro est executé à partir d'un control CommandButton ?

si oui, mets la propriété du bouton "TakeFocusOnClic" à false

--
isabelle


Le 2011-12-09 10:12, Lionel a écrit :
re
version 2000












Publicité
Poster une réponse
Anonyme