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

tchi456

XLDnaute Occasionnel
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
 

tchi456

XLDnaute Occasionnel
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
 

patricktoulon

XLDnaute Barbatruc
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
 

patricktoulon

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
313 230
Messages
2 096 410
Membres
106 604
dernier inscrit
JulienMan