conflit rows et range ?

gosselien

XLDnaute Barbatruc

• 26 Octobre 2015

• #2

Re : conflit rows et range ?

Bonjour,

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 26 Octobre 2015

• #3

Re : conflit rows et range ?

Bonjour, dev_co, gosselien, le Forum,

Comme ceci ?

Code:

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 🙂

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Octobre 2015

• #4

Re : conflit rows et range ?

salut

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

Code:

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 !

 

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 26 Octobre 2015

• #5

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

 

Pièces jointes

• row_sel.xlsm

  18.7 KB · Affichages: 32

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Octobre 2015

• #6

Re : conflit rows et range ?

Bonjour,

essaye comme ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 27 Octobre 2015

• #7

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 !

Code:

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

 

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 27 Octobre 2015

• #8

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Octobre 2015

• #9

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

Cliquez pour agrandir...

essaye ceci :

Code:

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

Cliquez pour agrandir...

il aurait fallut coder ainsi :

Code:

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

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

Code:

Rows(n).Select

bonne journée
@+

 

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 28 Octobre 2015

• #10

Re : conflit rows et range ?

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

donne comme l'image jointe

 

Pièces jointes

• rows(n).jpg

  38.7 KB · Affichages: 25

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Octobre 2015

• #11

Re : conflit rows et range ?

Re,

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

 

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 28 Octobre 2015

• #12

Re : conflit rows et range ?

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

 

Pièces jointes

• rows(n)_2.jpg

  38.1 KB · Affichages: 26

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Octobre 2015

• #13

Re : conflit rows et range ?

Re,

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

 

Pièces jointes

• classeur1.xlsm

  20.9 KB · Affichages: 28
• classeur1.xlsm

  20.9 KB · Affichages: 25

Vote positif 0 Vote négatif