Exporter mes données
Bonjour a tous
j'utilise un code pour exporter mes données de feuil "BASE" en feuil D par exemple
au choix suivant le crochage du userform
réalisé par Banzai64 qui fonctionne très bien (encore merci)
Option Explicit
Dim ln, f, l, c, v, ld, cd
Sub exporter()
Sheets("base").Visible = False
Sheets("base").Activate
For ln = 7 To Range("B" & Rows.Count).End(xlUp).Row
f = Left(Range("B" & ln), 1)
l = Mid(Range("B" & ln), 2, 1)
c = Right(Range("B" & ln), 1)
v = Range("C" & ln) & Chr(10) & Range("D" & ln) & Chr(10) & Range("E" & ln)
ld = Sheets(f).Range("B1:L1").Find(c).Column
Sheets(f).Cells(Val(l) + 1, ld).Value = v
Next ln
MsgBox "Travail terminé."
End Sub
mais suite a une demande
j'ai modifier le format de la cellule F8 feuil nouvelle ref "M"00
ce qui me fait
je tape 20 en cellule F8 a l'écran j'ai M20
le M se mets en automatique
idem en cellule F12 feuil recherche emp
idem en cellule F12 feuil recherche ref
idem en cellule D6 feuil BASE
j' exporte ma BASE vers la feuil D en cochant D dans le userform4
et la le M a disparut
peut on modifier le code exporter que j'ai intègre au code userform4
pour remet ce M
voir exemple feuil D
colonne A ce que je veux
colonne C ce que j'ai
j'espère avoir été clair merci a ceux qui on pris du temps pour lire ce message
je joins un fichier
cordialement
aiglon74
Bonsoir
Pour info cette macro ( Sub exporter() ) n'est pas de mon ressort, mais ce n'est pas important
Modifies la partie surlignée
Private Sub CommandButton1_Click()
'aiglon74
'--- Déclaration des variables
Sheets("base").Visible = False
Sheets("base").Activate
For ln = 7 To Range("B" & Rows.Count).End(xlUp).Row
f = Left(Range("B" & ln), 1)
l = Mid(Range("B" & ln), 2, 1)
c = Right(Range("B" & ln), 1)
v = Range("C" & ln) & Chr(10) & Range("D" & ln).Text & Chr(10) & Range("E" & ln)
ld = Sheets(f).Range("B1:L1").Find(c).Column
Sheets(f).Cells(Val(l) + 1, ld).Value = v
Next lnbonsoir banzai64
merci pour ta réponse
comme d'ab ca fonctionne génial
aiglon74