vider des cellule paire

[Ilino]

Bonjour FORUM
j'ai utilise ce code

'---clic froit vider colonne
Private Sub Worksheet_BeforeRightClick(ByVal Cible As Range, Annuler As Boolean)
      If Cible.Address = "$R$27" Then [R30:R228].ClearContents: Annuler = -1
End Sub

on clicant sur la cellule R27( bouton droit) ,je souhaiterai vider les cellules paire de la colonne R ( de 30 au 228) seulement c a d 30 32 34 36 ... etc
grazie

 

[job75]

Re : vider des cellule paire

Bonjour Ilino,

Private Sub Worksheet_BeforeRightClick(ByVal Cible As Range, Annuler As Boolean)
If Cible.Address <> "$R$27" Then Exit Sub
Dim i As Byte
Annuler = True
For i = 4 To 202 Step 2
  Cible(i) = ""
Next
End Sub

A+

 

[Ilino]

Re : vider des cellule paire

Bonjour maitre
merci pour la réponse mais ça n'a pas fonctionné???
a+

 

[job75]

Re : vider des cellule paire

Re,

Le code fonctionne pour R27 comme demandé au post #1...

Si maintenant tu veux le clic droit sur R28 :

Private Sub Worksheet_BeforeRightClick(ByVal Cible As Range, Annuler As Boolean)
If Cible.Address <> "$R$28" Then Exit Sub
Dim i As Byte
Annuler = True
For i = 3 To 201 Step 2
  Cible(i) = ""
Next
End Sub

Suffit de savoir ce qu'on veut Ilino.

A+

 

[Ilino]

Re : vider des cellule paire

Re
désolé c'est une erreur de ma part meme le code mnt fonctionne tres bien , si vous permettez je souhaite afficher un message d'attente lors de l'execution du MACRO parceque l'effacement de 100 lignes est tres lents
merci

 

[job75]

Re : vider des cellule paire

Re,

parceque l'effacement de 100 lignes est tres lents

Tu rigoles, 100 cellules à effacer ce n'est rien du tout, ça se fait en quelques centièmes de secondes.

Il doit y avoir autre chose, montre-nous ton fichier, avec toutes les formules et macros.

A+

 

[Ilino]

Re : vider des cellule paire

rE
C'est vrai j'utilise ce code

Private Sub Worksheet_SelectionChange(ByVal c As Range) 
    Dim plage As Range
    Set plage = Range("R30:R228")
    For Each c In plage
        If c = "" Then c = "En cours"
    Next

End Sub

est ce que ce dernier pose un pblm ?

 

[job75]

Re : vider des cellule paire

Re,

Non puisque le code d'effacement ne sélectionne rien.

Mais tu as peut-être des formules volatiles (avec DECALER, INDIRECT...) qui se recalculent.

A+

 

[Ilino]

Re : vider des cellule paire

Bonjour maitre
ci joint mon fichier ( si tu permets)
please ne me dis pas que c'est un fichier bob a gaz please
A+

 

[Ilino]

Re : vider des cellule paire

Bonjour JOB
J'ai remplacé le code precedent per celui-ci

Private Sub CommandButton102_Click()
Application.Goto Range("M3"), True

Range("R30:R228").ClearContents
end sub

mais il pose tj un pblm avec ce code

Private Sub Worksheet_SelectionChange(ByVal c As Range) 
   
 'Dim plage As Range
    'Set plage = Range("R30:R228,R234:R432,R438:R636,R642:R840,R846:R1044,R1050:R1248,R1254:R1452,R1458:R1656,R1662:R1860,R1866:R2064")
    'For Each c In plage
        'If c = "" Then c = "En cours"
    'Next

End Sub

grazie

 

[Ilino]

Re : vider des cellule paire

Bonjour Forum
sinon faire une cobinison entre les deux codes
vider les cellules de la colonne Range("R30:R228") en fois fait les cellules doivent etre par defaut " En cours" ???
is it possibl??
A+

 

[job75]

Re : vider des cellule paire

Bonjour Ilino,

Le dernier problème était de savoir pourquoi l'effacement prend du temps.

Tu n'as pas répondu à mon post #8 ni joint de fichier !!!

Pour le reste à toi de voir ce que tu veux faire, par exemple avec le clic droit :

Private Sub Worksheet_BeforeRightClick(ByVal Cible As Range, Annuler As Boolean)
If Cible.Address <> "$R$28" Then Exit Sub
Dim c As Range
Annuler = True
For Each c In [R30:R228]
  If c.Row Mod 2 Then
    If c = "" Then c = "En cours"
  Else
    c = ""
  End If
Next
End Sub

A+

 

[Ilino]

Re : vider des cellule paire

Re maitre
grazie
pblm résolut
A+