Aide sur une procédure

Le
Alain Lebayle
Bonjour,
J'essaie de faire fonctionner quelque chose comme cela, supprimer
également la cellule qui se trouve à droite

Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
.Range("R1:R26").Replace What:=Range("T1").Value, _
Replacement:="" & Offset(0, 1).Value = ""
.Protect Password:="toto"
End With
Application.ScreenUpdating = True

Je vous remercie
Alain
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #21489282
Bonjour,

Ceci peut-être...
'--------------
Sub jj()
Dim c As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
For Each c In .Range("R1:R26")
If c.Value = [T1] Then Range(c, c.Offset(, 1)).ClearContents
Next
.Protect Password:="toto"
End With
Application.ScreenUpdating = True
End Sub
'-----------

--
Salutations
JJ


"Alain Lebayle"
Bonjour,
J'essaie de faire fonctionner quelque chose comme cela, supprimer également la cellule qui se trouve à
droite

Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
.Range("R1:R26").Replace What:=Range("T1").Value, _
Replacement:="" & Offset(0, 1).Value = ""
.Protect Password:="toto"
End With
Application.ScreenUpdating = True

Je vous remercie
Alain
Jacky
Le #21489402
Re...
Quelques "." (point) se sont subtilisés ;o))
'------------------
Sub jj()
Dim c As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
For Each c In .Range("R1:R26")
If c.Value = .[T1] Then Range(c, c.Offset(, 1)).ClearContents
Next
.Protect Password:="toto"
End With
Application.ScreenUpdating = True
End Sub
'-------------------

--
Salutations
JJ


"Jacky"
Bonjour,

Ceci peut-être...
'--------------
Sub jj()
Dim c As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
For Each c In .Range("R1:R26")
If c.Value = [T1] Then Range(c, c.Offset(, 1)).ClearContents
Next
.Protect Password:="toto"
End With
Application.ScreenUpdating = True
End Sub
'-----------

--
Salutations
JJ


"Alain Lebayle"
Bonjour,
J'essaie de faire fonctionner quelque chose comme cela, supprimer également la cellule qui se trouve à
droite

Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
.Range("R1:R26").Replace What:=Range("T1").Value, _
Replacement:="" & Offset(0, 1).Value = ""
.Protect Password:="toto"
End With
Application.ScreenUpdating = True

Je vous remercie
Alain




Alain Lebayle
Le #21489972
Bonjour Jacky,
C'est parfait grand merci !!!
Alain

Jacky a écrit :
Re...
Quelques "." (point) se sont subtilisés ;o))
'------------------
Sub jj()
Dim c As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
.Unprotect Password:="toto"
For Each c In .Range("R1:R26")
If c.Value = .[T1] Then Range(c, c.Offset(, 1)).ClearContents
Next
.Protect Password:="toto"
End With
Application.ScreenUpdating = True
End Sub
'-------------------

Publicité
Poster une réponse
Anonyme