Discussion :

[GagnetYvon]

Bonjour tout le monde,

Je bloque un petit peu sur une macro, je voudrais coller les cellules sélectionnées que si les cellules de destination sont vides. J'ai essayé plusieurs façons mais aucune pour le moment ne répond à mes attentes. Voilà la dernière version de ma macro que j'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
Dim i As Integer
    i = 1
 
   Range("C1:C7").Select
   Selection.Copy
   If Not IsEmpty(Cells(i, 1)) Then
           Do While Cells(i, 1).Value <> ""
            i = i + 1
            Loop
    ElseIf IsEmpty(Cells(i, i)) Then
   ActiveSheet.Paste
   Application.CutCopyMode = False
 
End If
End Sub

Merci d'avance pour me donner des pistes pour résoudre mon problème !

[Marc-L]

Bonjour,

voici comment copier dans la feuille active la plage C1:C7 après la dernière cellule saisie de la première colonne :

[C1:C7].Copy Columns(1).Find("*", , , , , xlPrevious)(2)

_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[GagnetYvon]

Alors j'ai essayé d'utiliser votre code mais par contre je voulais le faire démarrer dans une case précise mais j'ai un bug.

De plus, je voulais faire évoluer mon code par la suite en faisant un "copier" d'un autre fichier excel que je collerai dans le fichier en cours d'utilisation. Donc je pense qu'en utilisant cette formule je vais avoir des soucis. Merci pour votre réponse.

[Marc-L]

[…] mais j'ai un bug.

Oui comme dans le code précédent qui en est truffé !

Mais sans poster votre code ni plus de précision, vous ne risquez pas d'obtenir une réponse …

Bref, voici une démonstration de recopie de la plage [C1:C7] à partir de la cellule A10 :

Code :

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

1
2
3
4
5
6
Sub Demo()
    Set Cel = Columns(1).Find("*", , , , , xlPrevious)
    If Cel Is Nothing Then Set Cel = [A9] Else If Cel.Row < 9 Then Set Cel = [A9]
    If Cel.Row < Rows.Count Then [C1:C7].Copy Cel(2) Else Beep
    Set Cel = Nothing
End Sub

_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


____________________________________
A quoi bon tuer des baleines si c'est pour maquiller des thons ‼