effacer une cellule

Staple1600

XLDnaute Barbatruc

• 21 Juillet 2005

• #2

Bonjour

ActiveCell.ClearContents devrait fonctionner

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 21 Juillet 2005

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 21 Juillet 2005

• #4

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

Puisque c'est ça je vais manger

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 21 Juillet 2005

• #5

Merci beaucoup Staple1600 et Pascal76.

Ca marche tres bien !!

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 21 Juillet 2005

• #6

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 ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 21 Juillet 2005

• #7

Re

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

Parceque l'erreur viendrait bien de là

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 21 Juillet 2005

• #8

Ce sont des variables.

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

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 22 Juillet 2005

• #9

Il n'y a pas de solutions ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 22 Juillet 2005

• #10

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

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 22 Juillet 2005

• #11

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

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 22 Juillet 2005

• #12

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 22 Juillet 2005

• #13

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

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 22 Juillet 2005

• #14

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

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

Merci beaucoup Pascal76

 

Vote positif 0 Vote négatif