Re : Bouton "Modifier"
Re: Bonjour à tous ,
Je vous mets ci-dessous une macro que Skoobi à crèer pour une autre partie de mon programe ,Serait-il possilble de la modifier où de l'adapter à mon cas ?
Il faudrait juste se base sur le "Nomclients" puisqu'ils est commun à tous les fichier consernés .
Je vois un à peut près la chose à faire mais j'ai du mal à le retranscrire en vba .
Si l'auteur où quelqu'un peut me donner un petit coup de mais se serais gèniale .
Le but : et de pouvoir modifier où d supprimer les informations situé dans mon fichier "C","SC","CA","S.Xls"
A noter : les 2 classeurs només CA et S .xls sont des classeurs qui sont fermer(une colone pour un total horizontal ,et un total vertical à la fin ) . Il faut donc garder ma base qui fonctionne .
En vous remerciant tous par avance je vous dit à bientôt sur se poste . Amiclement BR44
Voici la macro à modifier :
Private Sub CommandButton12_Click() 'Boutton"MODIFIER LES FICHES"
If RefClient = "" Then
MsgBox "Tapez la RefClient Rechercher"
Exit Sub
End If
If RefClient.Value >= "C001" And RefClient.Value <= "C054" Then
With Sheets("T1")
Set TrouveRefC = .Cells.Find(RefClient.Value, LookIn:=xlValues)
If Not TrouveRefC Is Nothing Then
.Range(TrouveRefC.Offset(2, 0), TrouveRefC.Offset(24, -5)).Copy Sheets("Détail").Range("B5")
Sheets("Détail").Range("G3").Value = RefClient.Value
Sheets("Détail").Range("C3").Value = TrouveRefC.Offset(0, -4).Value
FactureN°.Value = TrouveRefC.Offset(45, -4).Value
Mois.Value = TrouveRefC.Offset(0, -4).Value
End If
End With
With Sheets("GroupageClients")
Set TrouveRefCgr = .Cells.Find(RefClient.Value, LookIn:=xlValues)
End With
ElseIf RefClient.Value >= "C055" And RefClient.Value <= "C088" Then
With Sheets("T2")
Set TrouveRefC = .Cells.Find(RefClient.Value, LookIn:=xlValues)
If Not TrouveRefC Is Nothing Then
.Range(TrouveRefC.Offset(2, 0), TrouveRefC.Offset(24, -5)).Copy Sheets("Détail").Range("B5")
Sheets("Détail").Range("G3").Value = RefClient.Value
Sheets("Détail").Range("C3").Value = TrouveRefC.Offset(0, -4).Value
FactureN°.Value = TrouveRefC.Offset(45, -4).Value
Mois.Value = TrouveRefC.Offset(0, -4).Value
End If
End With
With Sheets("GroupageClients")
Set TrouveRefCgr = .Cells.Find(RefClient.Value, LookIn:=xlValues)
End With
ElseIf RefClient.Value >= "C089" And RefClient.Value <= "C111" Then
With Sheets("T3")
Set TrouveRefC = .Cells.Find(RefClient.Value, LookIn:=xlValues)
If Not TrouveRefC Is Nothing Then
.Range(TrouveRefC.Offset(2, 0), TrouveRefC.Offset(24, -5)).Copy Sheets("Détail").Range("B5")
Sheets("Détail").Range("G3").Value = RefClient.Value
Sheets("Détail").Range("C3").Value = TrouveRefC.Offset(0, -4).Value
FactureN°.Value = TrouveRefC.Offset(45, -4).Value
Mois.Value = TrouveRefC.Offset(0, -4).Value
End If
End With