Discussion :

[fashi]

Bonjour je suis débutante en macro , je voudrais bien que vous m'aidiez
je veux mettre une valeur par exemple catégorie A dans plusieurs cellules vides d'une colonne précis par exemple F(ps: tous les cellules de la colonne sont vide )
donc je veut dont tous ces cellules de cette colonne avec "catégorie A" .

[mfoxy]

Bonjour,

S'il s'agit d'un tableau structuré, il te suffit d'ajouter la formule ="catégorie A",dans la première cellule de ta colonne.

Pièce jointe 546366

S'il s'agit d'un "tableau" normal,ce qui serait dommage en 2020, il te faudra passer par une macro.

[fashi]

oui je connais cette façon mais mes fichiers chacune contiennent plus de 2000 ligne et il possible de le faire en marco

[mfoxy]

Re,

S'agit-il de tableaux structurés ou de "simple" table ?
Si tableau structuré le nom du tableau stp ?

[fashi]

re,
voici les colonnes de mon tableau

et moi j'ai un problème dans type categorie que j'ai ajouter qu'il y a 2000 ligne dans cette colonne ces cellules sont vides et je mettre "categorie A"

[mfoxy]

Re,

voici les codes

Tableau Structuré une ligne de code sans aucun souci de modification de feuille, disposition,ligne vide,...

Code :

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

1
2
3
4
5
6
 
Sub test()
'Avec Utilisation d'un Tableau structuré
Range("Table1[Column7]").Value = "Catégorie A"
 
End Sub

Tableau ancienne génération
(colonne A doit-être remplie, Feuille doit etre indiqué, dernière ligne doit être trouvée,range dest ne peut changé de colonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Sub test2()
'Avec Utilisation d'un Tableau ancienne version
 
Set WS = Worksheets("Sheet2") ' Modifier le nom de la feuille
 
With WS
    .Range("F2:F" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value = "Catégorie A"
End With
 
Set WS = Nothing
 
End Sub

[fashi]

Code :

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

1
2
3
4
5
6
 Sub remplir()
 Dim c As Range
 For Each c In Range("F1:F21123")
  If c = "" Then c = "categorie A"
 Next
End Sub

j'ai fait ce petit code qui marche et maintenant je veux si c'est possible pour tous les fichiers sans identifier le F21123 jusqu’à la fin de la colonne ou le debut de la plage si c'est possible
est que c'est possible de changer ma ligne de code 3 pour préciser la plage que je veux ?

[fashi]

Re,

voici les codes

Tableau Structuré une ligne de code sans aucun souci de modification de feuille, disposition,ligne vide,...

Code :

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

1
2
3
4
5
6
 
Sub test()
'Avec Utilisation d'un Tableau structuré
Range("Table1[Column7]").Value = "Catégorie A"
 
End Sub

Tableau ancienne génération
(colonne A doit-être remplie, Feuille doit etre indiqué, dernière ligne doit être trouvée,range dest ne peut changé de colonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Sub test2()
'Avec Utilisation d'un Tableau ancienne version
 
Set WS = Worksheets("Sheet2") ' Modifier le nom de la feuille
 
With WS
    .Range("F2:F" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value = "Catégorie A"
End With
 
Set WS = Nothing
 
End Sub

merci beaucoup cette méthode marche à merveille mais peut tu m’expliquer ton code bien sur si je te derange pas

[mfoxy]

Pas de souci, cfr notes dans code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test2()
'Avec Utilisation d'un Tableau ancienne version
' on fixe sur quelle feuille on veut travailler
Set WS = Worksheets("Sheet2") ' Modifier le nom de la feuille
' avec cette feuille pour le Range de F2 à F et dernière ligne non vide de la colonne A, pour avoir le range juste. prends la valeur "catégorie A" 
 
With WS
    .Range("F2:F" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value = "Catégorie A"
End With
' on libére la feuille
Set WS = Nothing
 
End Sub

[fashi]

Pas de souci, cfr notes dans code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test2()
'Avec Utilisation d'un Tableau ancienne version
' on fixe sur quelle feuille on veut travailler
Set WS = Worksheets("Sheet2") ' Modifier le nom de la feuille
' avec cette feuille pour le Range de F2 à F et dernière ligne non vide de la colonne A, pour avoir le range juste. prends la valeur "catégorie A" 
 
With WS
    .Range("F2:F" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value = "Catégorie A"
End With
' on libére la feuille
Set WS = Nothing
 
End Sub

merci beaucoup