Je souhaite réaliser un copier coller un peu particulier. Je voudrai que le coller marche uniquement si la cellule sélectionné se trouve dans la colonne A. De plus je n'arrive pas à effectuer le coller dans ma cellule active.
Je ne vois pas trop où il faut que je remplace le code que tu m'as donné dans un premier temps j'aimerais coller une selection à partir de la cellule active donc j'ai essayé de remplacer Range("A415").Select par Range("ActiveCell").Select mais ça ne marche pas.
non... pas trop... "activecell" (sans guillemets lorsque tu l'utilises dans le code), est la cellule active faisant partie de la selection en cours....
Voici un fichier j'ai un tableau que je souhaite copier coller dans la cellule active positionner plus bas à l'aide de la macro CopierColler. J'espère que c'est plus clair maintenant
Ok merci c'est ce que je recherchais j'ai juste une autre question comment je peux mettre une condition dessus ? Je voudrais que le copier coller marche que si la cellule active est en colonne A sinon on affiche un message en disant à l'utilisateur de se positionner en colonne A.
If Not Intersect(ActiveCell, Range("A:A")) Is Nothing Then
Range("b1:h7").Copy Destination:=ActiveCell
Else
MsgBox "cellule active pas dans la colonne A...)"
End If
J'aimerais aller plus loin encore il faudrait que le copier coller rentre dans le tableau que j'ai similué dans le fichier joint mais il faudrait que je garde le même nombre de cellule vide entre la ligne couleur verte et la fin du tableau matérialisée par une bordure estérieur.
With Range("b1:h7")
Range("B13").Resize(.Rows.Count, .Columns.Count).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Range("B13").Resize(.Rows.Count, .Columns.Count) = .Value
End With