Sujet Précédent Sujet Suivant

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

Fermé
mikamadeus Messages postés 44 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 19 août 2015 - 19 juin 2015 à 17:07
mikamadeus Messages postés 44 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 19 août 2015 - 23 juin 2015 à 11:25
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 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 19 mai 2024 7 217
19 juin 2015 à 19:27
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 lundi 1 juin 2015 Statut Membre Dernière intervention 19 août 2015
22 juin 2015 à 10:08
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 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 19 mai 2024 7 217
22 juin 2015 à 11:53
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 lundi 1 juin 2015 Statut Membre Dernière intervention 19 août 2015
22 juin 2015 à 14:40
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 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 19 mai 2024 7 217
22 juin 2015 à 23:42
J'ai essayé, pas d'erreur.
Désolé et bonne continuation
eriv
0
mikamadeus Messages postés 44 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 19 août 2015
23 juin 2015 à 11:25
Sur le fichier pas ok : https://www.cjoint.com/c/EFtpbBroLZv

Si vous faites ctrl+k l'erreure apparaitra
0

Discussions similaires

Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses
comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses