Autres corriger macros pour bottons

[belhoucine dine]

Je travaier dans Excel 2007

Bonjour, j'ai créée un programme dans Excel 2007 pour transfert les données de la feuille 1 a la feuille 2 et 3 avec condition .

Je n'ai pas pu corriger l'erreur de macro du bouton (liste abonnée et non abonnée)

je vous envoyer le classeur , ça aurait plus clair.

https://www.cjoint.com/c/JGnqti0ijfy

 

[_Thierry]

Bonsoir @belhoucine dine , Bienvenu sur XLD Bonsoir le Forum

Euh je pense que personne ne va ouvrir un fichier de 344kbs en plus zippé en RAR ...

Fais un fichier exemple de ton problème sans données confidentielles.
Ou simplement poste entre les balises [ CODE=vb ] Ton bout de Codeq qui ne va pas ... [ /CODE ] (sans espace, utilser l'cone au dessus </> )

Bonne soirée
@+Thierry

 

[sylvanu]

Bonsoir Belhoucine dine, Thierry,
L'erreur vient de :
" If TInfos(i, 8) = "abonnée" Then " car Tinfos est défini à partir de la colonne B.
Donc soit vous faites : "If TInfos(i, 7) = "abonnée" Then ",
soit vous faites : If Cells(i, 8) = "abonnée" Then "

 

[_Thierry]

Ah il reste encore un irreductible qui va sur cjoint pour ouvrir un RAR de plus de 300kbs
Il n'a peur de rien notre Sylvanu
Bonne soirée
@+Thierry

 

[sylvanu]

On a vu plus gros comme fichier, et un rar ne me fait pas peur. Norton est là, et jusqu'ici pas de problème.
Tout ça pour une macro de 30 lignes.

 

[sylvanu]

Bonjour,
J'ai tout remis "carré" et ça a l'air de marcher. A vérifier.
Il y avait plein de "abonné " et " non abonné " ( avec des espaces. donc ça ne pouvait pas marcher)
J'ai mis une liste déroulante pour éviter les erreurs.
Il y avait aussi des erreurs de transfert, les mêmes que ceux décrit au post #3.

Dernier point. Votre fichier n'est pas ananyme ( nom, prénom, date de naissance, tel ) donc après avoir pris la PJ détruisez vos PJ et prévenez moi, je détruirais les miennes.
Et la prochaine fois donnez une PJ anonyme.

 

[belhoucine dine]

Bonjour, Merci beaucoup de votre aide ça me ferais énormément plaisir Ce lien n'existe plus
ça marche très bien

 

[sylvanu]

Bonjour,
Et pour le coté anonyme ? Vos fichiers le sont ils ?
Si oui supprimez les et prévenez moi, je ferais de même.

 

[belhoucine dine]

oui suprimez les

 

[sylvanu]

fait.
bonne journée.

 

[belhoucine dine]

et Merci beaucoup