Macro remplis donnée manquante

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion roidurif
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

roidurif

XLDnaute Occasionnel
Bjr,

J'ai un tableau dans lequel il y a des références produits, description, prix.... seulement parfois dans le tableau il peux y a avoir la même référence à différent prix, mais sans que certain champs ne soit ressaisie.

Ce que j' aimerais faire c'est de créer une macro qui remplis automatiquement les champs non renseigné à partir des champs renseignés de la 1 ère référence.

Je vous joins mon fichier pour voir

Merci de votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : Macro remplis donnée manquante

roidurif à dit:
Merci Papou-net,

J'ai vu ta macro et je ne sais pas comment la lancer?
De plus j' ai rajouter d'autre colonne dans la macro, j'espere que c'est comme ça.

ci-joint ce le fichier.
Merci de ton aide
Cliquez pour agrandir...

Tu n'as pas besoin de la lancer, elle s'exécute auomatiquement à chaque changement de valeur dans la colonne 'produit'.
Oui, les lignes que tu as rajoutées sont bonnes : j'ai fait le test en réécrivant dans la colonne C de la ligne 11. Tu peux continuer de réécrire dans le autres cellules pour le vérifier.

Restant à ta disposition.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

Merci Papou-net

Es ce que l 'on peu rajouter une condition ou c complexe, c a d, si un champs de la 2 eme ligne ou 3eme ou.... est déja renseigné alors laissé champs indiqué et ne renseigné que quand c'est vide.

Merci de l'aide
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

Oui, je pense que tu dois y arriver de cette façon :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 3 Then Exit Sub
Lg = Target.Row
Set cel = Range("C1:C" & Lg - 1).Find(Target.Value, LookIn:=xlValues)
If Not cel Is Nothing Then
  If IsEmpty(Cells(Target.Row, 5)) Then Cells(Target.Row, 5) = Cells(cel.Row, 5)
  If IsEmpty(Cells(Target.Row, 6)) Then Cells(Target.Row, 6) = Cells(cel.Row, 6)
  If ismepty(Cells(Target.Row, 7)) Then Cells(Target.Row, 7) = Cells(cel.Row, 7)
' et ainsi de suite .....
End If

End Sub

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

C'est superbe Papou-net, Merci enormement de ton aide

J'essaye en parallelle pour mes anciens fichiers de lancer à l'aide d'un bouton, le code suivant, es ce ke je suis bien parti??

Code: 
Sub Remplissage()

With Sheets("Feuil1")

If Target.Column <> 3 Then Exit Sub
Lg = Target.Row
Set cel = Range("C1:C" & Lg - 1).Find(Target.Value, LookIn:=xlValues)
If Not cel Is Nothing Then
  If IsEmpty(Cells(Target.Row, 5)) Then Cells(Target.Row, 5) = Cells(cel.Row, 5)
  If IsEmpty(Cells(Target.Row, 6)) Then Cells(Target.Row, 6) = Cells(cel.Row, 6)
  If IsEmpty(Cells(Target.Row, 7)) Then Cells(Target.Row, 7) = Cells(cel.Row, 7)
  If IsEmpty(Cells(Target.Row, 28)) Then Cells(Target.Row, 28) = Cells(cel.Row, 28)
  If IsEmpty(Cells(Target.Row, 29)) Then Cells(Target.Row, 29) = Cells(cel.Row, 29)
  If IsEmpty(Cells(Target.Row, 34)) Then Cells(Target.Row, 34) = Cells(cel.Row, 34)
  If IsEmpty(Cells(Target.Row, 35)) Then Cells(Target.Row, 35) = Cells(cel.Row, 35)
  If IsEmpty(Cells(Target.Row, 49)) Then Cells(Target.Row, 49) = Cells(cel.Row, 49)
  If IsEmpty(Cells(Target.Row, 50)) Then Cells(Target.Row, 50) = Cells(cel.Row, 50)
  If IsEmpty(Cells(Target.Row, 53)) Then Cells(Target.Row, 53) = Cells(cel.Row, 53)
  If IsEmpty(Cells(Target.Row, 54)) Then Cells(Target.Row, 54) = Cells(cel.Row, 54)
  If IsEmpty(Cells(Target.Row, 55)) Then Cells(Target.Row, 55) = Cells(cel.Row, 55)
  
End If

End With

End Sub

Cordialement
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

Oui, mais tu dois précéder toutes les références de cellules (Range et Cells) par un point pour qu'elles puissent être attachées à ta référence de feuille (With ... End With).

Ex :

Code: 
With Sheets("Feuil1")

If Target.Column <> 3 Then Exit Sub
Lg = Target.Row
Set cel = [COLOR="Red"][B].[/B][/COLOR]Range("C1:C" & Lg - 1).Find(Target.Value, LookIn:=xlValues)
If Not cel Is Nothing Then
  If IsEmpty([COLOR="Red"][B].[/B][/COLOR]Cells(Target.Row, 5)) Then [COLOR="Red"][B].[/B][/COLOR]Cells(Target.Row, 5) = [COLOR="Red"][B].[/B][/COLOR]Cells(cel.Row, 5)
  If IsEmpty([COLOR="Red"][B].[/B][/COLOR]Cells(Target.Row, 6)) Then [COLOR="Red"][B].[/B][/COLOR]Cells(Target.Row, 6) = [COLOR="Red"][B].[/B][/COLOR]Cells(cel.Row, 6)
......
  
End If

End With

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

Papou-net, j'ai une erreure 424 en deuxieme ligne. Pourtant j'ai bien suivi tes conseils.

Cordialement

Code: 
Sub Remplissage()

With Sheets("BDD")

If Target.Column <> 3 Then Exit Sub
Lg = Target.Row
Set cel = .Range("C1:C" & Lg - 1).Find(Target.Value, LookIn:=xlValues)
If Not cel Is Nothing Then
  If IsEmpty(.Cells(Target.Row, 5)) Then .Cells(Target.Row, 5) = .Cells(cel.Row, 5)
  If IsEmpty(.Cells(Target.Row, 6)) Then .Cells(Target.Row, 6) = .Cells(cel.Row, 6)
  If IsEmpty(.Cells(Target.Row, 7)) Then .Cells(Target.Row, 7) = .Cells(cel.Row, 7)
  If IsEmpty(.Cells(Target.Row, 28)) Then .Cells(Target.Row, 28) = .Cells(cel.Row, 28)
  If IsEmpty(.Cells(Target.Row, 29)) Then .Cells(Target.Row, 29) = .Cells(cel.Row, 29)
  If IsEmpty(.Cells(Target.Row, 34)) Then .Cells(Target.Row, 34) = .Cells(cel.Row, 34)
  If IsEmpty(.Cells(Target.Row, 35)) Then .Cells(Target.Row, 35) = .Cells(cel.Row, 35)
  If IsEmpty(.Cells(Target.Row, 49)) Then .Cells(Target.Row, 49) = .Cells(cel.Row, 49)
  If IsEmpty(.Cells(Target.Row, 50)) Then .Cells(Target.Row, 50) = .Cells(cel.Row, 50)
  If IsEmpty(.Cells(Target.Row, 53)) Then .Cells(Target.Row, 53) = .Cells(cel.Row, 53)
  If IsEmpty(.Cells(Target.Row, 54)) Then .Cells(Target.Row, 54) = .Cells(cel.Row, 54)
  If IsEmpty(.Cells(Target.Row, 55)) Then .Cells(Target.Row, 55) = .Cells(cel.Row, 55)
  
End If

End With
End Sub

Cordialement.[/QUOTE]
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

Comment lances-tu ta macro ?
Je pense que l'erreur vient de Target : ce mot désigne la cellule sélectionnée avant que l'événement ne se produise. Il faut donc que la feuille que tu veux traiter soit active.
Sinon, il faut remplacer Target par l'adresse de la cellule à traiter.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

Bonjour Papou-net,
ce que j'essaye de faire, c'est dans un 1er temps d'aller chercher un fichier dans lequel il contient un onglet BDD et de le rajouter automatiquement dans notre fichier via une macro que j'ai déja créer.

Ensuite dans un 2ème temps lancer automatiquement notre macro soit à partir d'une feuille quelconque ou alors se lancer automatiquement une fois que c'est copier

J'ai fait cela mais je crois que je suis loin encore du resultat.


Code: 
Sub Remplissage()


If Target.Column <> 3 Then Exit Sub
Lg = Target.Row
Set cel = Sheets("BDD").Range(Target("C1:C" & Lg - 1).Find(Target.Value, LookIn:=xlValues))
If Not cel Is Nothing Then
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 5)) Then Sheets("BDD").Cells(Target.Row, 5) = Sheets("BDD").Cells(cel.Row, 5)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 6)) Then Sheets("BDD").Cells(Target.Row, 6) = Sheets("BDD").Cells(cel.Row, 6)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 7)) Then Sheets("BDD").Cells(Target.Row, 7) = Sheets("BDD").Cells(cel.Row, 7)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 28)) Then Sheets("BDD").Cells(Target.Row, 28) = Sheets("BDD").Cells(cel.Row, 28)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 29)) Then Sheets("BDD").Cells(Target.Row, 29) = Sheets("BDD").Cells(cel.Row, 29)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 34)) Then Sheets("BDD").Cells(Target.Row, 34) = Sheets("BDD").Cells(cel.Row, 34)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 35)) Then Sheets("BDD").Cells(Target.Row, 35) = Sheets("BDD").Cells(cel.Row, 35)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 49)) Then Sheets("BDD").Cells(Target.Row, 49) = Sheets("BDD").Cells(cel.Row, 49)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 50)) Then Sheets("BDD").Cells(Target.Row, 50) = Sheets("BDD").Cells(cel.Row, 50)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 53)) Then Sheets("BDD").Cells(Target.Row, 53) = Sheets("BDD").Cells(cel.Row, 53)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 54)) Then Sheets("BDD").Cells(Target.Row, 54) = Sheets("BDD").Cells(cel.Row, 54)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 55)) Then Sheets("BDD").Cells(Target.Row, 55) = Sheets("BDD").Cells(cel.Row, 55)
  
End If

End Sub
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

roidurif à dit:
Re,

Je ne sais pas si je dois reformuler mon problème, car j'ai pas de réponse?

Merci
Cliquez pour agrandir...


Bonsoir roidurif,

Je suis désolé, mais je suis en pleins préparatifs car je pars en voyage demain, et pour 5 semaines.
Je n'aurai donc pas le temps de t'aider davantage dans l'immédiat.
J'espère qu'une âme charitable saura t'apporter davantage de précisions pour t'aider à finaliser ton application.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro remplis donnée manquante

Ok merci Papou-net, bon voyage

S'il y ' a une personne qui peux m'aider serait surper sympa



Ce que j'essaye de faire :
C'est dans un 1er temps d'aller chercher un fichier dans lequel il contient un onglet BDD et de le rajouter automatiquement dans notre fichier via une macro que j'ai déja créer.

Ensuite dans un 2ème temps lancer automatiquement notre macro (Voir code ci-dessous) soit à partir d'une feuille quelconque ou alors se lancer automatiquement une fois que c'est copier

J'ai fait cela mais je crois que je suis loin encore du resultat.



Code: 
Sub Remplissage()


If Target.Column <> 3 Then Exit Sub
Lg = Target.Row
Set cel = Sheets("BDD").Range(Target("C1:C" & Lg - 1).Find(Target.Value, LookIn:=xlValues))
If Not cel Is Nothing Then
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 5)) Then Sheets("BDD").Cells(Target.Row, 5) = Sheets("BDD").Cells(cel.Row, 5)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 6)) Then Sheets("BDD").Cells(Target.Row, 6) = Sheets("BDD").Cells(cel.Row, 6)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 7)) Then Sheets("BDD").Cells(Target.Row, 7) = Sheets("BDD").Cells(cel.Row, 7)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 28)) Then Sheets("BDD").Cells(Target.Row, 28) = Sheets("BDD").Cells(cel.Row, 28)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 29)) Then Sheets("BDD").Cells(Target.Row, 29) = Sheets("BDD").Cells(cel.Row, 29)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 34)) Then Sheets("BDD").Cells(Target.Row, 34) = Sheets("BDD").Cells(cel.Row, 34)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 35)) Then Sheets("BDD").Cells(Target.Row, 35) = Sheets("BDD").Cells(cel.Row, 35)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 49)) Then Sheets("BDD").Cells(Target.Row, 49) = Sheets("BDD").Cells(cel.Row, 49)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 50)) Then Sheets("BDD").Cells(Target.Row, 50) = Sheets("BDD").Cells(cel.Row, 50)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 53)) Then Sheets("BDD").Cells(Target.Row, 53) = Sheets("BDD").Cells(cel.Row, 53)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 54)) Then Sheets("BDD").Cells(Target.Row, 54) = Sheets("BDD").Cells(cel.Row, 54)
  If IsEmpty(Sheets("BDD").Cells(Target.Row, 55)) Then Sheets("BDD").Cells(Target.Row, 55) = Sheets("BDD").Cells(cel.Row, 55)
  
End If

End Sub

cordialement
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

paradisecity1996
  • Question Question
XL 2019 BDD VBA - nombreux problèmes
Réponses
3
Affichages
952
fanfan38
fanfan38
A
  • Question Question
XL 2019 Création d'une macro permettant la création automatique de fichiers CSV
Réponses
2
Affichages
1 K
Arckang
A
C
  • Question Question
comment créer liens hypertexte vers dossiers ou liens vers fichiers en fonction des cellules ?
Réponses
0
Affichages
2 K
cd92600
C
S
  • Résolu(e)
Microsoft 365 VBA contrôle cellule(s) vides(s) encadrée(s) par cellules non vides
Réponses
6
Affichages
2 K
spike29
S
K
  • Question Question
XL 2010 Copier coller avec comparatif Macro
Réponses
0
Affichages
730
kknd04
K
B
  • Question Question
XL 2013 [VBA] Extraction de données basé sur 2 à 3 conditions
Réponses
2
Affichages
2 K
bastienb
B
xUpsilon
  • Question Question
Autres Permettre à une macro définie avec une bibliothèque d'objet récente de tourner avec une bibliothèque d'objets antérieure
Réponses
3
Affichages
2 K
Hasco
Hasco
J
  • Question Question
Macro permettant la gestion des fiches articles
Réponses
4
Affichages
799
Just1
J
S
  • Question Question
comment rendre une combobox plus rapide
Réponses
5
Affichages
1 K
snoopy07
S
N
  • Question Question
Booster une macro
Réponses
5
Affichages
3 K
Staple1600
Staple1600
P
  • Question Question
Lenteur dans mon fichier excel
Réponses
3
Affichages
7 K
Misange
Misange
M
  • Question Question
introduire une fonction dans une macro
Réponses
2
Affichages
1 K
machoucha
M
D
  • Question Question
Problème de macro avec liste déroulante
Réponses
1
Affichages
1 K
Dtekte
D
R
  • Question Question
Optimisation d'un outil de recherche macro
Réponses
2
Affichages
1 K
ravenolhm
R
T
  • Question Question
[Besoin de méthode d'optimisation de temps de traitement, macro VBA][RESOLU]
2
Réponses
22
Affichages
6 K
Thibault LB
T
F
  • Question Question
Macro VBA Compiler plusieurs tableaux
Réponses
0
Affichages
3 K
fb62840
F
R
  • Question Question
Exporter donnée excel dans une BDD Access (avec Table existante)
Réponses
5
Affichages
3 K
roidurif
R
L
  • Question Question
Demande d'une petite aide again ...
Réponses
6
Affichages
1 K
lovesky
L
A
  • Question Question
Macro : definition variables + recherche
Réponses
13
Affichages
2 K
afchartier
A
V
  • Question Question
(VB) Ma macro s'arrête en plein milieux!
Réponses
4
Affichages
2 K
VBdébutant
V
Retour