XL 2010 VBA - Bouton pour insérer une lettre ("P") dans certaines cellules spécifiques

tchi456 · 7 Décembre 2022

Bonjour,

Je recherche un code à mettre sur un bouton pour pouvoir insérer la lettre "P" dans certaines cellules spécifiques de ma feuille (cellules colonne D, lignes 2 à 126, lignes paires uniquement).

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry

patricktoulon · 7 Décembre 2022

et avec un seul bouton

VB:

Sub Pete()
Dim Cel As Range
    For Each Cel In [D2:D126]
        If Cel.Row Mod 2 = 0 Then Cel = Array("P", "")(Abs(Cel = "P"))
    Next
End Sub

tchi456 · 7 Décembre 2022

Bonjour Patrick,

Avec un seul bouton c'est le top du top.

Merci beaucoup à vous trois pour votre aide.

fanch55 · 7 Décembre 2022

patricktoulon à dit:
et avec un seul bouton

Si je n'ai pas fait de flip-flop immédiatement,
c'est en supposant qu'il pouvait y avoir autre chose que P ou rien dans la cellule ...
mais si c'est une cellule de type "binaire", c'est très bien comme ça .
il faudra juste potentiellement vivre avec des cellules hors valeurs ...

patricktoulon · 7 Décembre 2022

@fanch55 ?????????????????????

fanch55 · 7 Décembre 2022

Je suis loin de chercher la petite bête .... :

En fait ce n'est pas hors valeur mais hors contexte ...

patricktoulon · 7 Décembre 2022

re
et oui dans le contexte que pourrait elle contenir d'autre
puisque c'est "P" ou rien

XL 2010 VBA - Bouton pour insérer une lettre ("P") dans certaines cellules spécifiques

tchi456

XLDnaute Occasionnel

patricktoulon

tchi456

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires