Microsoft 365 Problème de VBA

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #2

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #3

Re

Sinon une version simplifiée de ta macro effacer

Code:

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

 

Vote positif 0 Vote négatif

L

ludo170967

XLDnaute Nouveau

• 25 Octobre 2022

• #4

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

 

Pièces jointes

• essai.xlsm

  23.5 KB · Affichages: 1

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #5

Re

test OK avec celui-ci

VB:

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.

 

Vote positif 0 Vote négatif

L

ludo170967

XLDnaute Nouveau

• 25 Octobre 2022

• #6

Staple1600 à dit:

Re

test OK avec celui-ci

VB:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #7

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Octobre 2022

• #8

Ou alors

Deux en une avec cette nouvelle version de valider

VB:

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

 

Vote positif 0 Vote négatif

L

ludo170967

XLDnaute Nouveau

• 25 Octobre 2022

• #9

merci beaucoup staple.
bonne soirée

 

Vote positif 0 Vote négatif