Réorganisation de codes

Le
Sylvain P.
Bonjour à tous,

J'ai un fichier xls avec des données du type :
BUDG I 012 I 25% I AMG I 145 I 27% I
BVDG I 014 I 28% I BUDG I 213 I 75% I

A chaque fois donc un code de trois lettres et dans les 2 cellules à
droite un résultat en effectifs et un résultat en %.
Je voudrais faire une feuille avec chaque code identique dans la même
colonne :
BUDG I 012 I 25% I AMG I 145 I 27% I
BUDG I 213 I 75% I I I I BVDG I 014 I 28% I
I I I AMG I 789 I 67% I BVDG I 456 I 35% I


J'ai la liste des codes.
Pour l'instant, j'ai fait une macro que je dois adapter code par
code :

Sub Reorganize()

For Each c In Range("Q2:AB1075")
If InStr(1, c, "BUDG") > 0 Then
Range("BJ" & c.Row).Value = c.Value
c.Offset(0, 1).Select
Selection.Copy
Range("BK" & c.Row).Select
ActiveCell.PasteSpecial
c.Offset(0, 2).Select
Selection.Copy
Range("BL" & c.Row).Select
ActiveCell.PasteSpecial
End If
Next c

End Sub

Je ne voudrais faire qu'une seule opération sans modifier à chaque
fois ma macro.
Des idées ?

Merci par avance.

Bonne journée
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
francois.forcet
Le #5424661
Salut à toi

Je te propose ton corrigé ainsi :

For Each d In Range("Q2:AB1075")
If Traité Like "*-" & d & "-*" = False Then
For Each c In Range(d & ":AB1075")
If InStr(1, c, d) > 0 Then
Range("BJ" & c.Row).Value = c.Value
c.Offset(0, 1).Select
Selection.Copy
Range("BK" & c.Row).Select
ActiveCell.PasteSpecial
c.Offset(0, 2).Select
Selection.Copy
Range("BL" & c.Row).Select
ActiveCell.PasteSpecial
End If
Next c
Traité = Traité & "-" & d & "-"
Next d

Je ne l'ai essayé dans son intégralité mais sur une partie

Celà devrait fonctionner

Dis moi !!!!
Sylvain P.
Le #5424641
Merci François, mais ça ne fonctionne pas.
ça bloque ici : For Each c In Range(d & ":AB1075")
Tu vois ce que c'est ??
A+
francois.forcet
Le #5424181
Rebonjours à toi

Essaies avec :

For Each c In Range(d.Address & ":AB1075")

Et dis moi !!!!
Publicité
Poster une réponse
Anonyme