Ajouté à la suite de la colonne A par dbleclic sur une plage copier valeur

Bonjour toutes et tous

Merci pour l'aide d'avance, je bosse sur un petit projet, et là, mais neurones s'emmêlent , j'ai un trou grrr, je ne retrouve plus comment

ajouter à la suite sur ma colonne A de ma feuil1 lorsque, j'effectue un double clic sur une plage ==> "B5:C6", recopier la valeur de la sélection et de placer celle-ci à la suite de ma colonne A (Note: aucun filtre et sans tableau)

merci à vous


car ce code par double clic ci-dessous me change à chaque fois sur la cellule A1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' en cas d'erreur
On Error GoTo 0
 ' declaration variable
    Dim cell As Object
  ' la plage de cellules B5:C6
        For Each cell In Range("B5:C6")

               Range("A1").End(xlUp).Value = ActiveCell.Value

        Next cell

        Cancel = True

0: Exit Sub
End Sub

un exemple ci-joint,

5ajoutcolonnea.xlsm (78.32 Ko)

crdlt,

André

Salut Andre13,

Je n'ai pas regardé le fichier donc une subtilité m'a peut-être échappé mais, à l'instar des procédures change et selectionchange, j'ai utilisé la méthode intersect pour cibler la zone d'application :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

if not intersect(target, Range("B5:C6")) is nothing then
    cancel = true 'annule effet double-clic
    dl = cells(rows.count, 1).End(xlUp).row
    Range("A" & dl + 1) = target.Value
end if

End Sub

Ici, en colonne A, on ne reporte que la cellule cliquée.

Et : "Karine alla en Irak"

Cdlt,

Re,

merci 3GB c'est cela super ^^, il faudra que je me rentre dans le crâne c'est range, cells, count, parfois, je me fais un meli mélo

bonne fin de soirée

Edit: pas évident avec André ( palindrome)

crdlt,

André

Merci, et bonne fin de soirée à toi aussi !

Et tu sais, je cherche un palindrome depuis des jours avec Andre mais c'est pas facile... Je garde espoir.

A bientôt,

Bonjour…

Salut dédé (comme mon meilleur pote, gag : je cause verlan mais ici cela ne s’entend pas donc … laisse béton)

En complément, autres propositions selon le cas (sac de nœuds ou pas) :

Si la première cellule de la colonne A n’est pas vide (en rouge dans l’exemple donné)

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If Not Intersect(R, [B5:C6]) Is Nothing Then
    Cancel = 1: Cells(Rows.Count, 1).End(xlUp)(2) = R
  End If
End Sub

sinon

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If Not Intersect(R, [B5:C6]) Is Nothing Then
    Cancel = 1
    If [A1] = "" Then [A1] = R Else Cells(Rows.Count, 1).End(xlUp)(2) = R
  End If
End Sub

et pour éviter des doublons (on ne sait jamais)

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If Not Intersect(R, [B5:C6]) Is Nothing Then
    Cancel = 1
    If [A1] = "" Then [A1] = R
    If Application.CountIf([A:A], R) = 0 Then Cells(Rows.Count, 1).End(xlUp)(2) = R.Value
  End If
End Sub

Bonjour toutes et tous

merci Ordonc^^, la troisième m'intéresse en faites toutes m'intéresse ^

@3GB, j'ai mis sur la procédure change également

merci à vous 2 ^^

crdlt,

André

Rechercher des sujets similaires à "ajoute suite colonne dbleclic plage copier valeur"