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
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.
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 ?
Sub Copier()
With Sheets("Facture")
If IsEmpty(.[C18]) Then .[C18] = " "
ActiveCell.Copy .Columns("C").Find("", .[C18], xlValues)
.Activate 'facultatif
End With
End Sub
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
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