Copier Coller VBA

job75

XLDnaute Barbatruc

• 26 Novembre 2020

• #2

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) :

VB:

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+

 

Dernière édition: 27 Novembre 2020

Vote positif 0 Vote négatif

F

FabsMeca13

XLDnaute Nouveau

• 26 Novembre 2020

• #3

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Novembre 2020

• #4

FabsMeca13 à dit:

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

Cliquez pour agrandir...

Bien sûr, affectez cette macro au bouton :

VB:

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

 

Dernière édition: 27 Novembre 2020

Vote positif 0 Vote négatif

F

FabsMeca13

XLDnaute Nouveau

• 26 Novembre 2020

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Novembre 2020

• #6

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

F

FabsMeca13

XLDnaute Nouveau

• 28 Novembre 2020

• #7

Super un grand merci à toi tout fonctionne bien.

 

Vote positif 0 Vote négatif