Bonjour le forum Dans la ligne ci-dessous je voudrais ajouter Férié ça bloque et je vois pas pourtant pas compliquéIf Range("B" & Target.Row) = "Congés" Or Range("B" & Target.Row) = "Repos" Then Range("C" & Target.Row) = Range("B" & Target.Row) Donc pas mis Merci pour vos retours

Bonsoir fanch55 Nickel Encore merci à toi Bonne fin de soirée sur le forum!! Cordialement

A mettre dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Range, C As Range Set R = Cells(Rows.Count, "B").End(xlUp) For Each C In Target If Not Intersect(C, Range("B1", R)) Is Nothing Then Select Case C Case "Repos", "Congés", "Fériés" C.Offset(, 1) = C Case Else End Select End If Next End Sub

Re fanch55 Il faut dans Données Validation décocher Message de saisie et alerte d'erreur et on peut taper un chiffre sans problème Ce que je demande maintenant (pas un problème) mais si ça peut se résoudre ça serait pas mal Lorsque je met Repos ou Congés dans colonne B s'affiche Repos ou Congés aussi colonne C Je fait Suppr colonne B si je veux taper un chiffre tout va bien Mais je peux aussi taper un chiffre à la place de Repos ou Congés, sans faire Suppr ça fonctionne mais Repos ou Congés reste dans colonne C Possible ou pas? Merci à vous pour vos éventuels retours

Autres - {RÉSOLU] Ajout texte problème de macro | Page 2

un internaute

XLDnaute Impliqué

8 Février 2023

Bonjour le forum
Dans la ligne ci-dessous je voudrais ajouter Férié ça bloque et je vois pas pourtant pas compliqué

VB:

If Range("B" & Target.Row) = "Congés" Or Range("B" & Target.Row) = "Repos" Then Range("C" & Target.Row) = Range("B" & Target.Row)

Donc pas mis
Merci pour vos retours

Autres {RÉSOLU] Ajout texte problème de macro

un internaute

XLDnaute Impliqué

un internaute

XLDnaute Impliqué

Discussions similaires

Autres {RÉSOLU] Ajout texte problème de macro

un internaute

XLDnaute Impliqué

un internaute

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency