Discussion :

[Kyle de kerloch]

Bonjour tout le monde,
Il y a quelques mois j'ai déjà fait appel à vous et la réponse rapide que j'ai eue dépassait mes espérances aussi je voudrais vous soumettre mon nouveau problème.
Dans une feuille excel, colonne A
J'ai tout d'abord 4 listes de données que j'appelerai pour la facilité
1,2,....,26
a,b,....,z
A,B,...Z
&,é,....)
Ces données me sont fournies dans un ordre aléatoire en provenance d'un autre programme

Genre :

1
C
!
a
Z
etc....

Le nombre données reçues est lui aussi aléatoire parfois 2 parfois 50 donc je ne peux présumé de la longueur de cette colonne, mais jusque 200 maximum.

Je voudrais une macro qui scanne la colonne A et qui écrive dans la colonne B
un code en rapport avec les données de la colonne

Par exemples :
1 dans la colonne A devra toujours me donner par exemple DNA1 dans la colonne B
Z dans la colonne A devra toujours me donner par exemple DNA7 dans la colonne B
et ainsi de suite

La solution de ce problème m'épargnerais des heures de travail fastidieux

Je suis tout à fait novice en la matière alors si le code peut être complet, sans vouloir être exigeant, ce serait parfait.

En vous remerciant toutes et tous par avance pour vos réponses,

Kyle

[laurent_ifips]

Salut Kyle,

Pour te mettre sur la piste, tu peux utiliser le code que je viens de poster : celui-ci te permet de scanner la colonne A qui peut être de longueur dynamique. APrès à toi d'y coller le traitement qui va bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub traitement()
    Dim I As Integer
    Dim Plage As Range, Cell As Range
 
    I = Range("A65536").End(xlUp).Row
    Set Plage = Range("A2:A" & I).SpecialCells(xlVisible)
 
    For Each Cell In Plage
             ' traitement
    Next Cell
 
End Sub

[Pierre Fauconnier]

Bonjour

Attention. Le code proposé posera problème si la dernière ligne de A est supérieure à 32768. Il vaut mieux déclarer i comme Long.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub traitement()
    Dim I As Integer
    Dim Plage As Range, Cell As Range
 
    I = Range("A65536").End(xlUp).Row
    Set Plage = Range("A2:A" & I).SpecialCells(xlVisible)
 
    For Each Cell In Plage
             ' traitement
    Next Cell
 
End Sub

On peut aussi utiliser directement

Code :

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

1
2
3
4
5
6
 
    Dim Plage As Range
 
    Set Plage = Range("a2:a" & Range("a65536").End(xlUp).Row)
 
...

De même, pour une compatibilité avec les nouvelles versions d'excel comptant plus de 65536 lignes, on pourra écrire

Code :

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

1
2
3
4
 
    Dim Plage As Range
 
    Set Plage = Range("a2:a" & Range("a" & Rows.Count).End(xlUp).Row)

[laurent_ifips]

Oups, bien vu Pierre