VB Excel Ajout de données

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 :oops:

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

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:

---

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

---

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.

Citation:

---

Envoyé par laurent_ifips

Code:

---

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:

---

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:

---

1 2 3 4

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

---

Oups, bien vu Pierre :)