Effacer plusieurs cellules sur une ligne

Mexav · 23 Mai 2015

Bonsoir,

J'ai un tableau excel de 500 lignes et 25 colonnes.
je voudrais effacer (pas supprimer) certaines cellules ligne par ligne à ma demande.

le code:

Code:

Sub test()

Range("E275:E275,G275,K275:L275,Q275,S275:AD275").Select.ClearContent

End Sub

Je ne trouve pas d'exemple, c'est pourquoi ma demande.

Un systeme de InBox serait idéal pour naviguer selon mes besoins, ce jour la ligne 275, demain la 48 etc

D'avance merci pour votre aide.
Cordialement
Xavier

Staple1600 · 23 Mai 2015

Re : Effacer plusieurs cellules sur une ligne

Bonsoir à tous

Mexav
Pour le fun

Code:

Sub Supressionaupetitbonheurlachance()
Dim NumeroLigne&
NumeroLigne = InputBox("Aujourd'hui: " & Date & Chr(13) & "Quelle ligne supprimer ?", "Suppression Ligne", Int((Rnd() * 500) + 1))
Cells(NumeroLigne, 1).EntireRow = Empty
End Sub

Mexav · 23 Mai 2015

Re : Effacer plusieurs cellules sur une ligne

Bonsoir,

Je viens de tester, cela marche, fonctionne, j'ai voulu chercher par moi-même, sans résultat probant.
Encore merci mille fois.
Bon WE
Xavier

Effacer plusieurs cellules sur une ligne

Mexav

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Mexav

XLDnaute Nouveau

Discussions similaires