Pouvez vous corriger ma ligne svp ?

[lcoulon]

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 ...

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,

 

[Cousinhub]

Re : Pouvez vous corriger ma ligne svp ?

Bonjour,
tu es sûr du nom de ta feuille 1? :

Sheets("feuill1")

ce ne serait pas plutôt :

Sheets("feuil1")

avec un "l"

autre manière, sans boucle :

Columns("C:C").SpecialCells(xlCellTypeBlanks).Offset(0, -2).Value = ""

Edit : bien vu Robert, j'avais point vu le Range("A")

 

[Robert]

Re : Pouvez vous corriger ma ligne svp ?

Bonjour Icoulon, bonjour le forum,

Essai comme ça :

Sheets("feuill1").Cells(Cell.Row,1).Clear

 

[Roland_M]

Re : Pouvez vous corriger ma ligne svp ?

bonjour, essai ceci
j'ai mis Sheets("Feuil1") toi tu mets "Feuill1" avec (2 L) A VOIR ?

Sub Essai()
Dim Cell As Range
Set Plage = Sheets("feuil1").Range("C2:C1000")
For Each Cell In Plage
 If Cell.Value = "" Then Sheets("feuil1").Range("A" & Cell.Row) = ""   '.Cells.Clear
Next Cell
End Sub

Roland

 

[lcoulon]

Re : Pouvez vous corriger ma ligne svp ?

Ca fonctionne parfaitement,

Merci a vous tous de m'avoir aidé.

 

[lcoulon]

Re : Pouvez vous corriger ma ligne svp ?

Si je veux maintenant que la cellule C contienne un début de donnée spécifique, comment procédez vous ?

du genre : si la cellule C contient un texte commencant par "ABC" alors modifie cellule en A

il s'agit juste de verifier si le début du texte correspond, pas toute son intégralité ...

 

[Cousinhub]

Re : Pouvez vous corriger ma ligne svp ?

Re-,
essaie :

Set Plage = Sheets("Feuil1").Range("C2:C1000")
For Each Cel In Plage
 If Left(Cel.Value, 3) = "ABC" Then Cells(Cel.Row, 1).Value = "Commence par ABC"
Next Cel

 

[lcoulon]

Re : Pouvez vous corriger ma ligne svp ?

d'accord mais dans mon cas, si une cellule C commence par ABC

alors je voudrais que le début du texte en cellule A soit remplacé par BBC

 

[Cousinhub]

Re : Pouvez vous corriger ma ligne svp ?

OK,
mais c'était marqué OU?

Si je veux maintenant que la cellule C contienne un début de donnée spécifique, comment procédez vous ?

du genre : si la cellule C contient un texte commencant par "ABC" alors modifie cellule en A

 

[Cousinhub]

Re : Pouvez vous corriger ma ligne svp ?

Re-,

Set Plage = Sheets("Feuil1").Range("C2:C1000")
For Each Cel In Plage
 If Left(Cel.Value, 3) = "ABC" Then Cells(Cel.Row, 1).Value = "BBC" & Cells(Cel.Row, 1).Value
Next Cel

 

[lcoulon]

Re : Pouvez vous corriger ma ligne svp ?

Ok j'ai compris, merci beaucoup

je garde chaque code précieusement.

 

[Cousinhub]

Re : Pouvez vous corriger ma ligne svp ?

Re-,
pour effectivement changer les 3 premières lettres de la colonne A :

Set Plage = Sheets("Feuil1").Range("C2:C1000")
For Each cel In Plage
 If Left(cel.Value, 3) = "ABC" Then Cells(cel.Row, 1).Value = "BBC" & Right(Cells(cel.Row, 1).Value, Len(Cells(cel.Row, 1)) - 3)
Next cel

 

[lcoulon]

Re : Pouvez vous corriger ma ligne svp ?

j'obtiens " Invalid procedure, call or argument "
avec ce nouveau code ...

a quoi sert le -3 en fin de ligne ?

 

[lcoulon]

Re : Pouvez vous corriger ma ligne svp ?

et question bête, mais si on veut remplacer tous les début de cellules commencant par ABC dans toute une colonne et les remplacer par ZZZ

est ce le meme principe, on joue sur le chiffre de ( cel.Row, x ) pour la cellule de destination ?

 

[Cousinhub]

Re : Pouvez vous corriger ma ligne svp ?

Re-,
le Len sert à comptabiliser le nombre de caractères dans la cellule
ex : "petit"
- 3 pour signifier qu'on garde tous les caractères moins 3
donc Right.... donne "it"
Pour remplacer Tous les ABC, soit la méthode Replace, sans cocher la totalité de la formule (fais des essais en enregistrant via l'enregistreur de macro), soit par ce code, mais sans conditions IF.....