conflit rows et range ?

[dev_co]

bonsoir
j'ai trouvé sur ce forum une réponse ( de 2008) qui ne va pas pour mon cas
peut-on utiliser :
[CODE
With Worksheets("Feuil1")
For n = 2 To .Range("B5000").End(xlUp).Row
Rows(n & ":" & n).Select

...etc
[/CODE]
car cela me donne erreur 1004

 

[gosselien]

Re : conflit rows et range ?

Bonjour,

Il est toujours préférable d'ajouter un petit fichier d'exemple, ça aide

 

[DoubleZero]

Re : conflit rows et range ?

Bonjour, dev_co, gosselien, le Forum,

Comme ceci ?

Option Explicit
Sub Zéro_erreur_1004()
    Dim n As Long
    With Worksheets("Feuil1")
        For n = 2 To .Range("B5000").End(xlUp).Row
            .Rows(n & ":" & n).Select
        Next
    End With
End Sub

A bientôt

 

[Si...]

Re : conflit rows et range ?

salut

pour répondre, comme , en adaptant le code fourni, comme cela ?

Sub OO_erreur_1004()
  With Sheets("Feuil1")
    .Range("A2:IV" & .[B65000].End(xlUp).Row).Select
  End With
End Sub

Nota : on peut limiter les colonnes en changeant IV !

 

[dev_co]

Re : conflit rows et range ?

Je mets un fichier mais ...
parfois ça marche ..ou pas
j'avais : for n= ... to .range( ..etc) > erreur
Je mets une variable avant (Dl) ça marche
je relance erreur ?
différente si SUB dans feuille ou dans un module ??

 

[Pierrot93]

Re : conflit rows et range ?

Bonjour,

essaye comme ceci :

Private Sub toto()
Dim n As Long
For n = 2 To Range("B5000").End(xlUp).Row
    With Feuil2
        Rows(n).Copy .Rows(.Range("B5000").End(xlUp)(2).Row)
    End With
Next n
End Sub

code à placer dans le module "Feuil1", le code placé ainsi, les objets sans références aux feuilles seront ceux de la feuille 1, si dans un module standard, objets de la feuille active...

bonne journée
@+

 

[Si...]

Re : conflit rows et range ?

salut

comme quoi la demande doit refléter correctement la situation !

Pour copier les données de la feuille où se trouve le bouton, à la suite dans l'autre onglet et à chaque appel !

Private Sub CommandButton1_Click()
  Range("A2:IV" & [B65000].End(xlUp).Row).Copy Feuil2.[A65000].End(xlUp)(2)
End Sub

 

[dev_co]

Re : conflit rows et range ?

Bonsoir
En fait je ne veux que selectionner une ligne ( j'ai des conditions avant) et si ok > Copie dans autre feuille
Là le truc de Pierrot fonctionne sauf que la 1ere fois si la ligne est A1 ,ça copie en A2 sur l'autre feuille
et pourquoi : Rows (n & ":" & n) ne fonctionne pas ??

 

[Pierrot93]

Re : conflit rows et range ?

Bonjour,

Là le truc de Pierrot fonctionne sauf que la 1ere fois si la ligne est A1 ,ça copie en A2 sur l'autre feuille

essaye ceci :

Option Explicit
Private Sub toto()
Dim n As Long, i As Long
For n = 2 To Range("B5000").End(xlUp).Row
    With Feuil2
        With .Range("B5000").End(xlUp)
            If .Row = 1 And .Value = "" Then i = 1 Else i = .Row + 1
        End With
        Rows(n).Copy .Rows(i)
    End With
Next n
End Sub

et pourquoi : Rows (n & ":" & n) ne fonctionne pas ??

il aurait fallut coder ainsi :

Rows("" & n & ":" & n & "").Select

mais pourquoi faire compliqué, et ceci est plus correct....

Rows(n).Select

bonne journée
@+

 

[dev_co]

Re : conflit rows et range ?

Bonjour , SLt Pierrot
moi je veux bien mais : rows(n).select

donne comme l'image jointe

 

[Pierrot93]

Re : conflit rows et range ?

Re,

mets un point devant rows... dépendant d'où est placé ton code... fonctionne parfaitement ainsi chez moi...

 

[dev_co]

Re : conflit rows et range ?

J'avais déjà fait comme 00 et SI ci dessus donc j'ai refait et :

 

[Pierrot93]

Re : conflit rows et range ?

Re,

ton fichier avec le code qui fonctionne chez moi....