Copier Coller VBA

[FabsMeca13]

Bonjour étant nouveau sur EXCEL et ne trouvant pas exactement ce que je recherche (j'ai essayer plusieurs code mais rien ne fonctionne)

je recherche le code qui me permettrai de copier des cellule de ma feuille Stock que je sélectionne manuellement à la main, et les copier sur ma feuille Facture à partir de la cellule C19

merci d'avance à ceux qui pourront m'aider

 

[job75]

Bonsoir FabsMeca13, bienvenue sur XLD,

Il faudrait savoir quelles sont les cellules à copier.

En attendant placez dans le code de la feuille "Stock" (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Sheets("Facture")
    If IsEmpty(.[C18]) Then .[C18] = " "
    Target.Copy .Columns("C").Find("", .[C18], xlValues)
    .Activate 'facultatif
End With
End Sub

La macro se déclenche quand on fait un double-clic sur une cellule de la feuille.

A+

 

[FabsMeca13]

Bonsoir Job75,

Les cellules à copier sont aléatoire, c'est des cellule que je sélectionne à la main au fur et a mesure du devis. j'ai fait un test et c'est ce que je recherche.

est il possible ce code de l'ajouter a un simple bouton ?

 

[job75]

est il possible ce code de l'ajouter a un simple bouton ?

Bien sûr, affectez cette macro au bouton :

Sub Copier()
With Sheets("Facture")
    If IsEmpty(.[C18]) Then .[C18] = " "
    ActiveCell.Copy .Columns("C").Find("", .[C18], xlValues)
    .Activate 'facultatif
End With
End Sub

 

[FabsMeca13]

Grand merci à toi, dernier petit problème, c'est que quand il me colle la cellule dans la feuille facture il me colle également la couleur de la cellule.. possible de remédier a ce dernier petit problème pour qu'il ne me colle pas les couleur de cellule

 

[job75]

Bonjour FabsMeca13, le forum,

J'ai corrigé les macros précédentes car elles ne fonctionnaient pas toujours correctement si la colonne C de la feuille "Facture" était vide.

Pour ne copier que la valeur :

Sub CopierValeur()
With Sheets("Facture")
    If IsEmpty(.[C18]) Then .[C18] = " "
    .Columns("C").Find("", .[C18], xlValues) = ActiveCell
    .Activate 'facultatif
End With
End Sub

A+

 

[FabsMeca13]

Super un grand merci à toi tout fonctionne bien.