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

sylvanu · 7 Décembre 2022

Bonjour Tchi,
Essayez :

VB:

Sub InséreP()
    [D2:D126] = "P"
End Sub

Cela suppose que le contenu éventuel des cellules est détruit par l'action.

tchi456 · 7 Décembre 2022

Bonjour Sylvanu,

Merci pour votre proposition mais je souhaite insérer cette lettre uniquement dans les lignes paires de ma colonne D jusqu'à la ligne 126.

Oui un second clique devrait pouvoir effacer toutes les cellules en question.

Meilleures salutations,

Thierry

fanch55 · 7 Décembre 2022

Bonjour, en retard :

VB:

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

tchi456 · 7 Décembre 2022

Bonjour Franch55,

C'est parfait et de cette façon pas besoin d'écrire chaque numéro de cellule.
Comment faire pour vider ces cellules au second clic?

patricktoulon · 7 Décembre 2022

re
bonjour a tous
moi aussi je veux m'amuser
la première est rigolote non ?

VB:

Sub test1()
    With [D2:D126]
        .Value = Application.Transpose(Split(Application.Rept("p,,", .Rows.Count), ","))
    End With
End Sub

VB:

Sub test2()
    With [D2:D126]
        .FormulaR1C1 = "= IF(MOD(ROW(),2),"""",""P"")":  .Value = .Value
    End With
End Sub

fanch55 · 7 Décembre 2022

patricktoulon à dit:
re
bonjour a tous
moi aussi je veux m'amuser
la première est rigolote non ?

Salut Pat,
Tes propositions sont trop radicales : elles écrasent les lignes impaires ....

patricktoulon · 7 Décembre 2022

re
sinon avec la meme sub on vide ou on met le "P"

VB:

Sub test1()
    With [D2:D126]
        If .Cells(1) = "" Then
            .Value = Application.Transpose(Split(Application.Rept("p,,", .Rows.Count), ","))
        Else
            .Value = ""
        End If
    End With
End Sub

VB:

Sub test2()
    With [D2:D126]
        If .Cells(1) = "" Then
            .FormulaR1C1 = "= IF(MOD(ROW(),2),"""",""P"")": .Value = .Value
        Else
            .Value = ""
        End If
    End With
End Sub

patricktoulon · 7 Décembre 2022

fanch55 à dit:
Salut Pat,
Tes propositions sont trop radicales : elles écrasent les lignes impaires ....

@fanch55 c'est un paramètres à prendre en compte ?

fanch55 · 7 Décembre 2022

tchi456 à dit:
Bonjour Franch55,

C'est parfait et de cette façon pas besoin d'écrire chaque numéro de cellule.
Comment faire pour vider ces cellules au second clic?

Tu veux vider les cellules paires ayant un P ou toutes les cellules paires ?

tchi456 · 7 Décembre 2022

fanch55 à dit:
Tu veux vider les cellules paires ayant un P ou toutes les cellules paires ?

Toutes les cellules paires D2 à D126.

fanch55 · 7 Décembre 2022

patricktoulon à dit:
@fanch55 c'est un paramètres à prendre en compte ?

tchi456 à dit:
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).

patricktoulon · 7 Décembre 2022

re

lignes paires uniquement).

oui mais en aucuns cas il a dit "laisser les autres telles qu'elle sont"
cela dit la boucle c'est très bien

fanch55 · 7 Décembre 2022

tchi456 à dit:
Toutes les cellules paires D2 à D126.

Associer 2 boutons :

VB:

Sub Set_P()
Dim Cel As Range
    For Each Cel In [D2:D126]
        If Cel.Row Mod 2 = 0 Then Cel = "P"
    Next
End Sub
Sub Clear_P()
Dim Cel As Range
    For Each Cel In [D2:D126]
        If Cel.Row Mod 2 = 0 Then Cel.ClearContents
    Next
End Sub

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

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

tchi456

XLDnaute Occasionnel

patricktoulon

sylvanu

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires