effacer une cellule

[Ronan]

Bonjour a tous,

je souhaiterai effacer le contenu d'une cellule mais je n'y arrive pas je n'est pas la bonne méthode
J'ai fait ceci mais ca bug :

For Each cellule In [A1:f12]
If cellule Like 'ronan' Then
cellule.Select
ActiveCells.Delete
End If
Next

 

[Staple1600]

Bonjour

ActiveCell.ClearContents devrait fonctionner

 

[PascalXLD]

Bonjour

c'est soit activecell (sans le 's') et avec cleaucontents

soit direct

For Each cellule In [A1:f12]
If cellule Like 'ronan' Then
cellule.clearcontents
End If
Next

 

[PascalXLD]

Et bien Staple c'est ma journée j'arrive toujours à la bourre

Puisque c'est ça je vais manger

 

[Ronan]

Merci beaucoup Staple1600 et Pascal76.

Ca marche tres bien !!

 

[Ronan]

désolé encore une autre question !

Je veux maintenant effacer une plage de données
j'ai fait ceci :

Range('A' & M2 & ':C' & M3).Select
Selection.ClearContents

Mais j'ai un probleme sur la ligne en rouge !!
Pourquoi ?

 

[PascalXLD]

Re

A quoi coorespondent ton M2 et ton M3 ????

Parceque l'erreur viendrait bien de là

 

[Ronan]

Ce sont des variables.

Par exemple M2 peut avoir pour valeur 1 et M3 =14 par exemple

 

[Ronan]

Il n'y a pas de solutions ?

 

[PascalXLD]

Bonjour

Je ne vosi pas pourquoi cela ne marcherait pas

Tu peux envoyer ton fichier avec ta macro STP ??

Mets des données bidons c'est juste pour voir

 

[Ronan]

Voila le petit bout de programme :


M1 = Cells(N, 'A')

M2 = M1 + 1
M3 = M2 + 4

Range('A' & M2 & ':C' & M3).Select
Selection.ClearContents


M1 retourne bien une valeur, idem pour M2 et M3
Ces trois variables sont bien déclarés au début sur le principe :
Dim M1 as Long

 

[Ronan]

L'erreur qui est décrite est une erreur d'execution '1004'
La méthode 'Range' de l'objet a échoué.

 

[PascalXLD]

Bon si tu n'envoies pas de fichier cela va être dur je crois

Dans ta ligne M1 = Cells(N, 'A')

le N il correspond à quoi

Moi j'ai fait un essai et ça marche

 

[Ronan]

En effet c'etait mon N qui n'allait pas !!

A les fautes d'étourderie!!!!!!

Merci beaucoup Pascal76