Discussion :

[Rynn]

Bonjour,

J'essai de faire une macro qui parcours plusieurs colonnes sur une seule ligne et si la cellule est vide saisie 0 dedans sinon elle passe à la prochaine.

J'ai essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim i As byte
 
For Each Cell In Sheets("Feuil1").Range("D25:AM25")
 
    If ActiveCell.Value <> "" Then
        i = i + 1
    Else: ActiveCell.FormulaR1C1 = "0"
 
    End If
 
Next

Pas d'erreur de code mais ça ne fait rien, alors j'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim i As Integer
 
i = 1
 
 
Range("D25:AM25").Select
 
 
While Cells(1, i) <> ""
 
'i = i + 1
 
 
    If ActiveCell.Value <> "" Then
        i = i + 1
    Else: ActiveCell.FormulaR1C1 = "0"
 
    End If
 Wend

mais marche pas non plus...

Merci de votre aide

Valérie

[teen6517]

Salut Valérie

j'esper que mon petit bout de code t'aidera et si tu a des question n'ésite pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    Dim compteur_colonne As Integer
    Dim nom_feuille As String
 
    nom_feuille = ActiveSheet.Name                                               'recupere le nom de la feuille
	Worksheets(nom_feuille).Activate                                               'active la feuille (rend accecible les cellule de cette feuille)
 
 
	With ActiveSheet
		For compteur_colonne = 4 To 39                       'on commance a 4 car D = 4eme colonne et on fini a 39 car AM est la 39eme colonne
			If .Cells(25, compteur_colonne) = "" Then        'si la cellule est vide
				Cells(25, compteur_colonne) = 0               'on lui atribu la valeur 0 sinon on passe a la cellule suivante
			End If
		Next compteur_ligne
	End With

[Godzestla]

Bonjour,

attention il y a une petite erreur ici

Il faut lire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Next compteur_colonne

en lieu en place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Next compteur_ligne

[Rynn]

Bonjour Teen,

Merci de ta réponse rapide ça marche nikel !!

dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If .Cells(25, compteur_colonne) = "" Then
 Cells(25, compteur_colonne) = 0

C'est quoi 25 stp ?

[Rynn]

Ah oui c'est le nombre de ligne dans le cas où on en aurait à parcourir

Godzestla : effectivement, vu que je n'ai besoin que d'une ligne dans ma macro (ha les exceptions...) j'avais supprimé "compteur_ligne".

Merci à tous les 2 et bonne fin de journée,

[EDIT]
Bon j'ai rien dit... en fait ça ne marche pas meme avec compteur_colonne après Next... comme la ligne était déjà rempli ça m'a induit en erreur...

[teen6517]

oups dsl pour la petite erreur dans les compteur

J'ai utilisé mon code qui lit parcourais dans la meme colonne toute les ligne et dans le copier coller g oublier de modifier la derniere ligne de code ^^

ben en fait le 25 dans mon code c la ligne sur laquelle tu reste ^^

dans ton exemple tu allais de la cellule D25 à la cellule AM25

dans mon code une cellule se localise grace a 2 variable ligne et colone

Cell(ligne, colonne)
donc si tu change que de colonne et garde la ligne fixe tu remblace la variable par une constante ^^

jesper que sa taide mon charabia ^^ moi en tous cas je me comprend bien

tu a toujour des erreur ou sa marche??
tu tu a des erreur donne ton code explique en francais se que tu cherche a faire et demain matin je tente de taider si c'est dans mais corde et si les noctembule ton pas deja aidé ^^

sur ce chez moi on dit bonne soiré

[AlainTech]

Pourquoi utiliser des variables ligne et colonne alors que Rynn était parti sur de bonnes bases?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As byte
Dim Cell As Range
 
For Each Cell In Sheets("Feuil1").Range("D25:AM25")
 
    If Cell.Value = "" Then
        Cell.Value = 0
    Else
        i = i + 1
    End If
 
Next Cell