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

[tchi456]

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

 

[sylvanu]

Bonjour Tchi,
Essayez :

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

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

 

[tchi456]

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]

Bonjour, en retard :

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]

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]

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

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

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

 

[fanch55]

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]

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

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

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]

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

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

 

[fanch55]

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]

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

Toutes les cellules paires D2 à D126.

 

[fanch55]

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

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]

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]

Toutes les cellules paires D2 à D126.

Associer 2 boutons :

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]

et avec un seul bouton

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