Copie auto de cellules remplies (Macro)

[arnaudbu]

Bonjour,

Actuellement je copie des lignes,une à une, vers une autre feuille en les sélectionnant manuellement et en lancant une macro.

With Sheets("Rapport")
    Set rs = .Range(ActiveCell, ActiveCell.Offset(0, 6))
    Set rd = Sheets("Suivi_Actions").Range("A65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rd.PasteSpecial xlValues
    rd.PasteSpecial xlFormats
   End With
Application.CutCopyMode = False

Comment faire pour que la macro fasse une boucle sur les lignes 11,12,13,14,16,17,18,19,20,22,23,24,26,28,29,31,32 et copie automatiquement les lignes si la colonne I de ces lignes sont non vide ?

Merci @+

 

[Pierrot93]

Re : Copie auto de cellules remplies (Macro)

Bonjour Arnaud

si j'ai bien compris, mais sans fichier pas facile pour tester...

Option Explicit
Sub test()
Dim t() As Variant, i As Integer
t = Array(11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 31, 32)
With Sheets("Rapport")
    For i = LBound(t) To UBound(t)
        If .Range("I" & t(i)).Value <> "" Then .Range("A" & t(i)).Resize(1, 7).Copy Sheets("Suivi_Actions").Range("A65536").End(xlUp).Offset(1, 0)
    Next i
End With
End Sub

bonne soirée
@+

 

[arnaudbu]

Re : Copie auto de cellules remplies (Macro)

Salut et merci,

Ca marche pas mal. J'ai quelque modifs pour la copie.

Le seul hic c'est qu'il me copie la permière ligne 1 fois, la deuxième 1 fois, la troisième 3 fois, la quatrième 10 fois et ainsi de suite ...

Dim rs As Range, rd As Range
Dim t() As Variant, i As Integer

t = Array(11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 31, 32)

With Sheets("Rapport")
    For i = LBound(t) To UBound(t)
    
      Set rd = Sheets("Suivi_Actions").Range("A65536").End(xlUp).Offset(1, 0)
      Set rs = .Range("I" & t(i)).Resize(1, 6)
      
        If .Range("I" & t(i)).Value >= "1" Then rs.Copy
        
      rd.PasteSpecial xlValues
      rd.PasteSpecial xlFormats
    
    Next i
    
End With

Application.CutCopyMode = False

 

[Pierrot93]

Re : Copie auto de cellules remplies (Macro)

Re,

comprends pas trop, chez moi à priori cela fonctionne (excel 2003)...

 

[arnaudbu]

Re : Copie auto de cellules remplies (Macro)

Oui cela fonctionne au niveau copie. Le seul hic est que au lieu de copier 1 fois chaque ligne, il les copie plusieurs fois.

 

[Guest]

Re : Copie auto de cellules remplies (Macro)

Bonjour le fil, Pierrot🙂

Ne manquerait-il pas un End IF:

Dim rs As Range, rd As Range
Dim t() As Variant, i As Integer
 
t = Array(11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 24, 26, 28, 29, 31, 32)
 
With Sheets("Rapport")
    For i = LBound(t) To UBound(t)
 
      Set rd = Sheets("Suivi_Actions").Range("A65536").End(xlUp).Offset(1, 0)
      Set rs = .Range("I" & t(i)).Resize(1, 6)
 
      [SIZE=3] [COLOR=red]If .Range("I" & t(i)).Value >= "1" Then[/COLOR][/SIZE]
               rs.Copy
 
             rd.PasteSpecial xlValues
             rd.PasteSpecial xlFormats
     [SIZE=3][COLOR=red]End If[/COLOR][/SIZE]
    Next i
 
End With
 
Application.CutCopyMode = False

(sans plus avoir examiné le sujet)
A+

 

[arnaudbu]

Re : Copie auto de cellules remplies (Macro)

En fait il boucle autant de fois qu'il y a de nombre de valeur dans le Array.

J'ai 17 valeurs dans le Array, donc il me met 17 lignes.

Si j'ai 2 entrées à copier dans mon tableau, il me copie 1 fois la première ligne et 16 fois la deuxième.

 

[arnaudbu]

Re : Copie auto de cellules remplies (Macro)

Merci HASCO de te joindre à nous,

Si je rajoute END IF, il me met erreur END IF sans bloc IF Bizarre ??

 

[Guest]

Re : Copie auto de cellules remplies (Macro)

Re,

As-tu lu mon précédent message? Je crois que nous nous sommes caramboler(1 minute près)

A+

 

[arnaudbu]

Re : Copie auto de cellules remplies (Macro)

Lol oui on se carambole 😉

 

[Guest]

Re : Copie auto de cellules remplies (Macro)

re,

Si je rajoute END IF, il me met erreur END IF sans bloc IF

C'est sûrement parce que tu n'as pas fait de saut de ligne entre le Then et le rs.copy

Relis le message tu verras la différence.

A+

 

[arnaudbu]

Re : Copie auto de cellules remplies (Macro)

Effectivement cela fonctionne à présent. Grosse erreur naze de ma part.

Merci à vous @+