Copier collé spécial

[adr95]

Bonjour,

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.

Voici mon code :

Private Sub CommandButton1_Click()


Range("A6:AB18").Select
Application.CutCopyMode = False
Selection.Copy

Range("A415").Select
ActiveSheet.Paste
End Sub

Merci

 

[Pierrot93]

Re : Copier collé spécial

Bonjour,

pas tout compris, mais regarde peut être ceci si cela peut t'aider à avancer :

If Not Intersect(ActiveCell, Range("A:A")) Is Nothing Then MsgBox "ok"

bon après midi
@+

 

[adr95]

Re : Copier collé spécial

Salut,

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.

J'espère que j'ai été clair.

 

[Pierrot93]

Re : Copier collé spécial

Bonjour,

J'espère que j'ai été clair.

non... pas trop... "activecell" (sans guillemets lorsque tu l'utilises dans le code), est la cellule active faisant partie de la selection en cours....

bonne journée
@+

 

[adr95]

Re : Copier collé spécial

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

 

[Pierrot93]

Re : Copier collé spécial

Re,

regarde peut être ceci :

Range("b1:h7").Copy Destination:=ActiveCell

A noter, rarement utilile de selectionner en vba....

 

[adr95]

Re : Copier collé spécial

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.

Merci

 

[Pierrot93]

Re : Copier collé spécial

Re,

essaye ceci :

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

 

[adr95]

Re : Copier collé spécial

Merci beaucoup pour toute l'aide que tu m'as apporté

 

[adr95]

Re : Copier collé spécial

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.

 

[Pierrot93]

Re : Copier collé spécial

Re,

pas tout compris, ton "tableau d'origine" étant vide.... peut être ceci :

    Range("b1:h7").Copy Destination:=Range("M13")

 

[Nairolf]

Re : Copier collé spécial

J'allais dire la même chose Pierrot93, tu peux expliciter davantage adr95😕

 

[adr95]

Re : Copier collé spécial

Oui mon tableau d'origine est vide mais je veux garder des lignes vides après avoir réalisé le copier collé. Je regarde le code que tu m'as donné

 

[adr95]

Re : Copier collé spécial

Re,

pas tout compris, ton "tableau d'origine" étant vide.... peut être ceci :

    Range("b1:h7").Copy Destination:=Range("M13")

C'est pas tout à fait ça car là je perds des lignes en effet je veux garder le même nombre de ligne vide il y en a 12 je crois.

 

[Pierrot93]

Re : Copier collé spécial

Re,

essaye ceci :

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