Code ok sur un fichier mais pas sur un autre (format equivalent)

mikamadeus Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   -  
mikamadeus Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai reussi a obternir un code pour creer un onglet 'simplified' a partir de l'onglet ''full''.
Vous trouverez ce fichier sur le lien OK.
En revanche j'ai un peu modifié ce fichier et essaye d'appliquer le code a nouveau mais il ne fonctionne pas. Vous trouverez ce fichier sur le lien pas OK.
Un erreur apparait dans le code et destructure l'onglet simplified ( vous pouvez le voir juste en dessous ainsi qu'un lien avec le code complet)

Pouvez vous m'aider a faire marcher mon code sur le nouveau fichier (pas ok) ?


.Cells(li, 1).Value = Sheets(FF).Cells(liTitreFF, 1) & " Department"
.Cells(li, 1).Font.Size = 60
.Cells(li, 1).Font.FontStyle = "Gras"
.Cells(li, 1).HorizontalAlignment = xlGeneral
.Cells(li, 1).VerticalAlignment = xlCenter
' recherche ligne changement de couleur
li = li + 1
coul = .Cells(li, 2).Interior.ColorIndex
While .Cells(li, 2).Interior.ColorIndex = coul <-------
li = li + 1
Wend

ok : https://www.cjoint.com/c/EFtpbblYh1v
Pas ok : https://www.cjoint.com/c/EFtpbBroLZv

Code complet : https://www.cjoint.com/c/EFtpcEfGbGv

Merci beaucoup !!

A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Arghhh !!! 12 modules...
Si tu disais comment lancer le bouzin et où est la macro ?
eric
0
mikamadeus Messages postés 44 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Il n'y a pas de macro, tout est dans le code, pour le lancer il faut faire ctrl+k.
je ne sais pas comment vous aider plus. N'est il pas possible de se pencher sur la ligne qui ne va pas ? en comparant les deuxi ficher pour comprendre la modif a faire dans le code ?

Merci,
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Il n'y a pas de macro, tout est dans le code
Tu ne sais pas ce qu'est une macro ? C'est une procédure en vba....
Tu fournis un fichier où il y en plein, fait l'effort de dire laquelle te pose problème, où elle est et comment tu utilises ton fichier pour provoquer l'erreur si tu veux de l'aide.


eric
0
mikamadeus Messages postés 44 Date d'inscription   Statut Membre Dernière intervention  
 
Excusez moi, le module concernée est Copie_full, pour provoquer l'erreur faites ctrl+K
La ligne concernée est celle suivi de ce signe <------- :

.Cells(li, 1).Value = Sheets(FF).Cells(liTitreFF, 1) & " Department"
.Cells(li, 1).Font.Size = 60
.Cells(li, 1).Font.FontStyle = "Gras"
.Cells(li, 1).HorizontalAlignment = xlGeneral
.Cells(li, 1).VerticalAlignment = xlCenter
' recherche ligne changement de couleur
li = li + 1
coul = .Cells(li, 2).Interior.ColorIndex
While .Cells(li, 2).Interior.ColorIndex = coul <-------
li = li + 1
Wend

Souhaitez vous d'autres precisions ?

Merci beaucoup
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
J'ai essayé, pas d'erreur.
Désolé et bonne continuation
eriv
0
mikamadeus Messages postés 44 Date d'inscription   Statut Membre Dernière intervention  
 
Sur le fichier pas ok : https://www.cjoint.com/c/EFtpbBroLZv

Si vous faites ctrl+k l'erreure apparaitra
0