Problème Macro VBA

[samimi94]

Problème Macro VBA (RESOLU - Merci beaucoup)

Bonjour à tous,

Cela fait peu de temps que je me suis mise aux macros, et j'ai beaucoup appris grâce au site et à toutes vos remarques et solutions.
Aujourd'hui je vous écrit car je bute sur ma macro et j'ai eu beau chercher je ne trouve pas la réponse.

Je vous expose mon problème.

Dans un fichier Excel, les utilisateurs doivent obligatoirement 'sur une même ligne'mettre un P dans la colonne "D" dès lors qu'ils ont saisi quelquechose dans la colonne B. Malheureusement ils oublient toujours de le faire ce qui est embarassant, par conséquent je souhaiterai l'automatiser (facile à dire pour ma part).

Je parviens à le faire sur toute la colonne quand je mets
Columns("D").Value = "P" mais malheureusement ca me met la lettre sur toutes les cellules de la colonne D même quand la colonne A n'est pas renseignée.

Autre problème toujours dans le même fichier, les utilisateurs doivent également renseigner la colonne E mais le contenu est libre, or je souhaiterai mettre la lettre A dans les cellules de la colonne E si les utilisateurs l'ont laissé vide car elle ne doit pas le rester et toujours si la cellule B contient du texte.

Je ne sais pas si mon premier post est clair, mais j'espère vivement que quelqu'un pourra m'aider car sur les autres forums j'ai trouvé des choses mais qui font toujours références à des fonctions, or dans mon cas, je ne veux pas faire du calcul, juste mettre du texte sous certaines conditions.

D'avance, merci, d'avoir déjà pris le temps de lire ce post jusqu'au bout

Bonne journée ou soirée

 

[Cousinhub]

Re : Problème Macro VBA

Bonsoir, et bienvenue sur le forum

Avec ce code, dès que tes collègues saisissent quelque chose en colonne B, La colonne D prend la valeur "P", et la colonne E prend la valeur "A"
Rien ne les empêche de modifier la colonne E ensuite

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Target.Count = 1 Then
    Cells(Target.Row, 4).Value = IIf(Target <> "", "P", "")
    Cells(Target.Row, 5).Value = IIf(Target <> "", "A", "")
End If
Application.EnableEvents = True
End Sub

 

[Roland_M]

Re : Problème Macro VBA

bonsoir

dans ta macro il suffit de tester la colonne en question
if Cells(NoLig?, NoColB) > "" then Cells(NoLig?, NoColD)= "P"

Roland

 

[samimi94]

Re : Problème Macro VBA

Bonoir,

Avant toute chose merci beaucoup pour votre accueil.

Je vais tester vos deux propositions de ce pas et vous tiendrez informé du résultat que j'obtiens.

En attendant je vous souhaite une excellent soirée.

 

[samimi94]

Re : Problème Macro VBA

Re-bonsoir,

Je viens de tester vos deux propositions, mais il ne se passe rien aussi bien dans ma macro de base que dans un nouveau classeur !

Auriez-vous une idée de ce que je ne fais pas bien ?

D'avance, merci.

 

[Cousinhub]

Re : Problème Macro VBA

Bonsoir,
où as-tu placé le code?
Il faut le placer dans l'évènement de feuille (clic droit sur le nom de l'onglet, Visualiser et code) et coller ce code dans la feuille

 

[samimi94]

Re : Problème Macro VBA

Bonsoir Arnaud,

Je l'ai bien mis dans l'évenement de feuille et en effet du coup ca fonctionne beaucoup mieux Thank's t'es un As.

Si je peux abuser une dernière fois, je viens de faire le teste et en effet quand je saisi j'obtiens le résultat escompté, par contre quand je fais un copier - coller pour renseigner ma colonne B là ce n'est plus pris en compte sauf si je double clique sur la cellule.

Y a-t-il un moyen pour qu'il détecte que l'info est présente dans ma cellule B même ) partir d'un copié-collé ?

Merci encore.

 

[samimi94]

Re : Problème Macro VBA

Désolée bhbh,

Je venais de lire un post d'un certain Arnaud, du coup je me suis trompée dans le pseudo.

 

[Cousinhub]

Re : Problème Macro VBA

Re-,
je suppose que tu veux dire (si je fais un copier/coller de PLUSIEURS cellules dans la colonne B)
car un copier/coller d'une cellule fonctionne

essaie avec :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Target.Count = 1 Then
    Cells(Target.Row, 4).Value = IIf(Target <> "", "P", "")
    Cells(Target.Row, 5).Value = IIf(Target <> "", "A", "")
End If
If Target.Column < 4 And Target.Count > 1 Then
    For Each cel In Selection
        If cel.Column = 2 Then
            Cells(cel.Row, 4).Value = IIf(cel <> "", "P", "")
            Cells(cel.Row, 5).Value = IIf(cel <> "", "A", "")
        End If
    Next cel
End If
Application.EnableEvents = True
End Sub

 

[samimi94]

Re : Problème Macro VBA (Résolu)

Bhbh,

Je ne sais vraiment pas trop comment te remercier, car là tu me retires une épine du pied en quelques minutes alors que ca fait des jours que j'effectue des recherches sur le web pour en arriver à ce résultat.

En effet je parlais de copier-coller dans la colonne, la prochaine fois je m'exprimerai plus clairement.

Merci beaucoup et bonne soirée.
PS : J'ai mis résolu dans l'objet je ne sais pas si c'est comme cela qu'on clôture un post

 

[Cousinhub]

Re : Problème Macro VBA

Re-,
pour le Résolu, c'est pas trop l'habitude ici, il n'y a pas de bouton idoine
peut-être qu'en éditant ton premier post...
car là ça n'apparait pas...

 

[samimi94]

Re : Problème Macro VBA

BHBH,

Je me suis avancée un peu vite, ca a fonctionné, puis quand j'ai fermé puis réouvert le fichier, ca ne le fait plus !

 

[samimi94]

Re : Problème Macro VBA

Bhbh,

On va dire que ca fonctionne, je ne comprends apres avoir tenté de l'ouvrir à deux reprises il fonctionne de nouveau.

Merci pour ton aide précieuse.

 

[Cousinhub]

Re : Problème Macro VBA

Re-,
je pense savoir d'où ça vient


supprime les 2 :

Application.EnableEvents =

en début et en fin de code
Enregistre
Ferme Excel et redémarre

 

[samimi94]

Re : Problème Macro VBA

C'est parfait, ca fonctionne comme je veux.

Tu viens de rendre une personne heureuse, car ca va me soulager énormément dans mon travail.

Merci beaucoup et passes une bonne fin de soirée.