Copier Coller VBA

FabsMeca13

XLDnaute Nouveau
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

XLDnaute Barbatruc
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:

FabsMeca13

XLDnaute Nouveau
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

XLDnaute Barbatruc
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+
 

Discussions similaires

Réponses
56
Affichages
906
Réponses
6
Affichages
362

Statistiques des forums

Discussions
311 720
Messages
2 081 912
Membres
101 837
dernier inscrit
Ugo