Pouvez vous corriger ma ligne svp ?

lcoulon · 5 Mars 2008

Bonjour

Je cherche a réaliser une macro qui verifierai si des cellules ont un contenu dans une plage donnée ( C2:C1000)

si en C une donnée est présente , alors rien ne n'est fait en cellule A de la ligne scrutée.

si par contre la cellule C est vide, alors je voudrais que le contenu de la cellule A de la même ligne soit effacé .

voici ce que j'ai commencé d'écrire ...

Code:

Set Plage = Sheets("feuill1").Range("C2:C1000")
For Each Cell In Plage

If Cell.Value = "" Then
Sheets("feuill1").Range("A") = ""   '.Cells.Clear

End If

Next Cell

J'obtiens une erreur et je ne sais pas la corriger ...
Merci de votre aide,

lcoulon · 5 Mars 2008

Re : Pouvez vous corriger ma ligne svp ?

J'ai fait cela , mais ça ne fonctionne pas

( le but est de remplacer chaque debut de cellule de la colonne B commencant par SNNTM par NNTM ...

Code:

Sub Suppression_S()

Dim STOCK As Worksheet

Set STOCK = Worksheets("STOCK")


With STOCK


Set Plage = Range("B3:B1000")

For Each cel In Plage

If Left(cel.Value, 3) = "SNNTM" Then Cells(cel.Row, 3).Value = "NNTM" & Right(Cells(cel.Row, 3).Value, Len(Cells(cel.Row, 1)) - 5)


Next cel

End With

End Sub

Voyez vous ou je fais erreur ?
Merci a vous

Cousinhub · 5 Mars 2008

Re : Pouvez vous corriger ma ligne svp ?

Re-,
Essaie avec Edition/Remplacer
sélectionne ta zone
quoi : SNNTM
par : NNTM

Clique sur Options, décoche "Totalité du contenu de la cellule" si c'est coché
et Remplacer tout
Lance l'enregistreur de macro en même temps, tu auras le code

Pouvez vous corriger ma ligne svp ?

lcoulon

XLDnaute Occasionnel

lcoulon

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Pouvez vous corriger ma ligne svp ?

lcoulon

XLDnaute Occasionnel

lcoulon

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency