Petit pb simple de macro excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Petit pb simple de macro excel

marcmaumont

Bonjour a tous,

Je me lance un peu dans la macro excel mais la je bloque sur une betise je pense :

Code :

Sub AgencyRemove()
Worksheets("Final" ).Activate
Range("C2:C4677" ).Selection
For Each cell In Selection
If cell.Value = "UNKNOWN" Then ClearContents
Next cell
End Sub

Voila, ma toute toute petite macro, mais ca part en vrille des la premiere ligne avec une erreur : "Sub or function net defined"

Mais bon mon seub a l'air detre definit pourtant... :pfff:

Si qulqu'un voit ce que c'est, je suis preneur...

++ et merci davance

Message édité par marcmaumont le 16-06-2004 à 13:13:18

Publicité

beliaf

essai,

cell.ClearContents

marcmaumont

Maintenant ca fait autre chose... bah voyons...

'Object doesn't support this property or method'

!!!!

:-(

marcmaumont

Help... Personne n'a d'idée?

Svp...

JihemAir

Je sais pas

Code :

Dim objCell As Range
Worksheets("Feuil1" ).Activate
Range("C2:C4677" ).Selection
For Each objCell In Selection
If objCell.Value = "UNKNOWN" Then objCell.ClearContents
Next cell

Une bonne habitude: Declare tes variables !!!
(Je crois que cell est un mot réservé). La méthode ClearContents s'applique à l'objet Range.

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

marcmaumont

Code :

Sub AgencyRemove()
Dim objCell As Range
Worksheets("Sheet2" ).Activate
Range("C2:C4677" ).Selection
For Each objCell In Selection
If objCell.Value = "UNKNOWN" Then objCell.ClearContents
Next objCell
End Sub

voila, qd je mets ca, ca me fait "out of range"!!!
Je comprends pas pourtant c simple mon truc...

Tu prends les cellules de C2 a C4677 et si le contenu est "UNKNOWN", tu supprimes le contenu...

JihemAir

Je sais pas

Code :

Dim objCell As Range
With Worksheets("Feuil1" )
.Activate
.Range("C2:C4677" ).Select
End With
For Each objCell In Selection
If objCell.Value = "UNKNOWN" Then objCell.ClearContents
Next objCell

La méthode "Selection" devient "Select". Chez moi, ça marche.

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

marcmaumont

chez moi aussi!!!
Je te remercie enormement!!!!!

marcmaumont

hehe... J'ai encore une autre question, si c'est pas trop demandé!

G 2 feuilles de calcul dont une ki sera un peu le "propre" de l'autre...

Sur le premier, je fais un RANGE sur 3 colonnes et je veux recuperer les infos ligne par ligne de la 1ere et de la 3e colonne...
Mais je ne sais pas comment dire en vba la premiere et la derniere colonne...

Je pensais partir sur un :
FOR EACH ROW ...

Merci d'avance

marcmaumont

up...

Publicité

JihemAir

Je sais pas

Pas besoin d faire une selection:

Boucle tant que (condition)
i = i + 1
WorkSheets("Feuille" ).Range("A" & i).Value '1ere colonne
WorkSheets("Feuille" ).Range("C" & i).Value ' 3eme colonne
Fin Boucle

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

marcmaumont

Une derniere p'tite kestion : G fait un petit script pour copier une cellule d'une feuille a une autre, mais ca ne marche pas :
Worksheets("vik_1086797835" ).Range("K & i" ).Copy
ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("K & i" )

voili!!!

JihemAir

Je sais pas

Range("K & i" ) ne marche pas. Il faut sortir & i des guillemets.
Range("K" & i)

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Petit pb simple de macro excel

Sujets relatifs
[VBA][Excel] Rollover	double pb vb excel
Changer le couleur d'une cellule d'un fichier Excel	[VBA] Lancement automatique d'une macro lors d'une modif
question (simple) sur le port série	Délimiteur dans Excel 97 (fichiers CSV)
besoin d'aide en visual basic sur excel (base de données)	excel-->my SQL
fusionnement des fichiers excel en java	une macro dédoublonnage???
Plus de sujets relatifs à : Petit pb simple de macro excel

Page générée en 0.061 secondes