Autres corriger macros pour bottons

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2020

• #2

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2020

• #3

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 "

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2020

• #4

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2020

• #5

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Juillet 2020

• #6

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.

 

Vote positif 0 Vote négatif

Solution

B

belhoucine dine

XLDnaute Nouveau

• 16 Juillet 2020

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #8

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

 

Vote positif 0 Vote négatif

B

belhoucine dine

XLDnaute Nouveau

• 16 Juillet 2020

• #9

oui suprimez les

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #10

fait.
bonne journée.

 

Vote positif 0 Vote négatif

B

belhoucine dine

XLDnaute Nouveau

• 16 Juillet 2020

• #11

et Merci beaucoup

 

Vote positif 0 Vote négatif