Effacer plusieurs cellules sur une ligne

[Mexav]

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:

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]

Re : Effacer plusieurs cellules sur une ligne

Bonsoir à tous

Mexav
Pour le fun 😉

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]

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