Aide sur une macro récuperée
Bonjour à tous,
Un collègue nous avait préparé une macro afin de mettre en forme un fichier, mais s'est barré depuis =p
Celle ci tourne très bien mais je souhaiterais l'adapter afin de mettre en page un autre fichier.
Concrètement, pour cette mise à jour, je n'arrive pas à mettre des bordures toutes les 24 lignes à partir de la ligne 4.
Un fichier est normalement joint afin de vous donner un aperçu de ce que j'ai initialement (page 1) et de ce que je voudrais au final (page 2)
Le luxe serait de rajouter des couleurs sur la dernière colonne afin de respecter le code couleur affiché en colonne H.
Bien évidemment, nous aurions plusieurs onglet à mettre en forme de cette maniere (jusqu'à 5) et les données de la colonne E ne sont pas fixes : ce sont des câbles qui peuvent venir se ranger sur d'autres cassettes (colonne B)
Je souhaiterais donc mettre des bordures afin de délimiter tout cela ...
Concernant la colonne Tube, je pense qu'il nous faudra intervenir manuellement.
Est ce jouable ?
Vous remerciant de votre lecture,
EDIT : j'ai pu avancer sur quelques points sans réellement savoir si c'est correct, mais cela fonctionne
Bonjour et bienvenue sur le forum
Des fichiers en" .txt " ne sont d'aucune utilité ici.
Il te faut joindre des fichiers en " xls ",ou " xlsm "...c'est à dire au format Excel .
Bye !
Ah, mercredi,
Le fichier de la macro est trop volumineux pour être joint comme ça.
Je vous le fournit avec cjoint, en espérant que ça aille :
Merci =D
Salut,
J'ai pu avancer afin d'avoir quelque chose de correct mais rencontre encore une difficulté ou deux :
J'ai ce bout de code qui modifie le fond des cellules en respectant un code couleur, mais je souhaiterais garder cette couleur si la valeur de la cellule précédente est la même.
compteur2 = 0
stock = ""
For i = 4 To 724
If Not (Split(pep.Cells(i, 6).MergeArea.Address, ":")(0) = stock) Then
stock = Split(pep.Cells(i, 6).MergeArea.Address, ":")(0)
If compteur2 = 12 Then
comtpeur2 = 1
Else
compteur2 = compteur2 + 1
End If
pep.Range(Split(pep.Cells(i, 6).MergeArea.Address, ":")(0)).Interior.Color = choisir_couleur_modulo(compteur2)
End If
Next i
Aussi, je dois répéter un paquet de fois ces lignes et me demande s'il n'y a pas moyen de "factoriser", la bordure est à mettre toutes les 24 lignes :
For i = 148 To 148
For j = 1 To 5
With pep.Cells(i, j).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Next j
Next i