Discussion :

[OlivB1]

Bonjour...et désolé d'avance pour ma question qui pourra sembler simple aux experts que vous êtes

Ce que je voudrais faire :
- Copier une sélection de cellules : Feuille "B" Cellule "A2:E2"
- Allez sur Feuille "A" : trouver et sélectionner la 1ère Ligne vide + Allez en Colonne B
- Coller ma sélection initiale

ET, en question bonus, est-il possible de modifier la couleur de la forme par laquelle je lance la Macro pour qu'elle devienne verte ? (si c'est possible il faudrait aussi "le retour" pour qu'avec une autre macro je puisse remettre la couleur initiale en gris).

Merci d'avance

[Invité]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Copier()
  With Worksheets("A")
    Worksheets("B").Range("A2:E2").Copy .Cells(.Range("B" & .Rows.Count).End(xlUp).Row + 1, 2)
  End With
End Sub

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Ligne As Long
With Sheets("A")
    Set Var = .Shapes("Rectangle 1")
    .Shapes("Rectangle 1").Fill.ForeColor.RGB = RGB(0, 176, 80)
    Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    Sheets("B").[A2:E2].Copy .Cells(Ligne, 2)
End With

Remplace le nom de la forme.

Je ne connais pas la couleur initiale. Par exemple, tu peux mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Shapes("Rectangle 1").Fill.ForeColor.RGB =RGB(199, 199, 199)

[OlivB1]

Désolé, mais ce ne marche pas...


J'avais déjà réussi une macro similaire (il y a longtemps...et je n'y ai plus accès...) et il me semble me souvenir d'une formule type "While IsEmpty" :
Ca vous parle ?

[Daniel.C]

Qu'est-ce qui ne marche pas ? Est-ce que tu as une erreur ? si oui, laquelle ?

[OlivB1]

Erreur d’exécution 1104
La méthode Copy de la classe range à échoué

Il y a peut-être une incohérence entre les feuilles A et B ?

[Daniel.C]

Ca peut-être une feuille protégée... ou autre chose. Mets un classeur exemple - sans données confidentielles - en pièce jointe.

[OlivB1]

Merci d'avance,

j'ai mis des infos sur ce que je souhaite directement dans le fichier...

[Daniel.C]

Ca provient de tes cellules fusionnées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Sheets("FdM")
    Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row + 3
    Sheets("Exploit").[B11:Z11].Copy .Cells(Ligne, 2)
End With

[Daniel.C]

Au temps pour moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Sheets("FdM")
    Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    If Ligne < 9 Then Ligne = 9
    Sheets("Exploit").[B11:Z11].Copy .Cells(Ligne, 2)
End With

[OlivB1]

Merci beaucoup