Microsoft 365 Problème de VBA

[ludo170967]

bonjour le fil,
je viens de créer un fichier avec mes quelques connaissance en vba. mais malheureusement à la fin de la réalisation de mon code ça ne fonctionne pas. le code bloque lorsque je clic sur valider.
Pouvez-vous m'aider
Merci

 

[Staple1600]

Bonjour @ludo170967

Tes données sont fictives ou pas?
Si non alors supprime ton fichier et remplace-le par une version anonymisée.

Pourquoi?
RGPD oblige
(voir la charte du forum)

 

[Staple1600]

Re

Sinon une version simplifiée de ta macro effacer

Sub effacer()
Range("B11,B14,B17,E11,E14,E17") = ""
End Sub

 

[ludo170967]

re bonjour,
oui effectivement je me suis trompé de fichier. j'ai change mon code par celui de Staple que je remercie.
mais j'ai toujours le problème avec le code de validation
Merci pour votre aide
Ludo

 

[Staple1600]

Re

test OK avec celui-ci

Sub valider()
Dim DL&, adr, i&
adrs = Split("B14 B11 B17 E11 E14 E17")
DL = Sheets("Base de données").Cells(Rows.Count, 1).End(3).Row
For i = 0 To UBound(adrs)
Sheets("Base de données").Cells(DL + 1, i + 1).Value = Sheets("saisie").Range(adrs(i)).Value
Next
End Sub

NB: Remplacer le code existant par celui-ci.

 

[ludo170967]

Re

test OK avec celui-ci

Sub valider()
Dim DL&, adr, i&
adrs = Split("B14 B11 B17 E11 E14 E17")
DL = Sheets("Base de données").Cells(Rows.Count, 1).End(3).Row
For i = 0 To UBound(adrs)
Sheets("Base de données").Cells(DL + 1, i + 1).Value = Sheets("saisie").Range(adrs(i)).Value
Next
End Sub

NB: Remplacer le code existant par celui-ci.

re,
merci beaucoup pour le code. ou puis-je mettre la ligne call effacer dans le code pour que lorsque la validation est faite les cellules b11,b14,b17, e11, e14 et e17 s'effacent automatiquement.
merci
ludo

 

[Staple1600]

Re

Sur le fichier initial, il y avait un bouton Effacer
Il suffit donc de supprimer la macro effacer initiale puis de mettre celle du message#3, et d'affecter ensuite cette macro au bouton Effacer, non ?

 

[Staple1600]

Ou alors

Deux en une avec cette nouvelle version de valider

Sub valider()
Dim DL&, adr, i&
adrs = Split("B14 B11 B17 E11 E14 E17")
DL = Sheets("Base de données").Cells(Rows.Count, 1).End(3).Row
For i = 0 To UBound(adrs)
Sheets("Base de données").Cells(DL + 1, i + 1).Value = Sheets("saisie").Range(adrs(i)).Value
Next
Sheets("saisie").Range("B11,B14,B17,E11,E14,E17") = ""
End Sub

 

[ludo170967]

merci beaucoup staple.
bonne soirée