Pourquoi ca coince!

[dominique35]

Bonjour à tous

Voila suite a la récupereation sur le forum de ce petit fichier, je l'ai remanié pour une gestion de produit.
1) Mon problème en récapitulatif, la premiere ligne de chaque feuille n'est pas pris en compte.

Résolu 2) EN page Bébé, comme faire dans la colonne stock, pour que rien ne s'inscrive si la cellule date le la même ligne et vide.( ILoveZadig merci à toi)

3) Comme remplacer en page récapitulatif la fonction TRI PAR TITRE , par un bouton qui vide la feuille de ces resultats.

4) Et pour finir peut-ont ajouter une feuille automatiquement en cas de nouvelle famille de produits et qui serais pris en compte, par le recapitulatif.

Merçi à vous et bonne journée
Je joint le fichier

 

[ILoveZadig]

Re : Pourquoi ca coince!

Bonjour dominique,

Pour le 2)
Mets =SI(ESTVIDE(D2);"";SOMME(F2-G2)) en H2, puis glisse vers le bas.
Je dois avouer ne pas avoir bien saisi les autres questions

Pour le 1), peut-être Menu Fenetres => Libérer les volets.?

 

[dominique35]

Re : Pourquoi ca coince!

Merci pour ta réponse qui fonction super

 

[dominique35]

Re : Pourquoi ca coince!

Apres avoir libéré les volets rien ne change

 

[dominique35]

Re : Pourquoi ca coince!

Bonjour.
Voila j'avance gentillement mais si vous avez des idées n'hesitez pas.
Merci et bonne journée à vous

 

[vbacrumble]

Re : Pourquoi ca coince!

Bonjour



Si tu postais une version xls de ton fichier (et non pas une version Excel 2007) tu aurais plus de monde à pouvoir t'aider car nous n'avons pas tous Excel 2007.

Car ici tu n'es pas dans le forum dédié à Excel 2007.

Pour ce faire, tu ouvres ton fichier , tu fais Enregistrer sous, et dans Type de fichir, tu choisis, Classeur Excel 97-2003
(l'extension devant être xls)

 

[dominique35]

Re : Pourquoi ca coince!

Bonjour vbacrumble.

Effectivement, il est sur que si le dossier n'est pas conforme, c'est beaucoup plus dur, alors je te remercie de ta remarque.

je joint le fichier en extension XLS

 

[JNP]

Re : Pourquoi ca coince!

Bonjour le fil 🙂,
Attention, tu as intégré un certificat qui bloque les macros (tout au moins chez moi...) !
Pour le 1, c'est normal, dans ton code, tu demandes depuis la 3ème ligne :

Set PlageA = Sheets(i).Range(Cells([B][COLOR=red]3[/COLOR][/B], 1), Cells(z, 9))

Si tu passes en 2, ça marchera 😛.
Pour le 3, la première partie du code le fait, il te suffit donc de le récupérer

Set ShR = Sheets("Récapitulatif auteur")
ShR.Activate
n = ShR.Cells(65536, 1).End(xlUp).Row + 1
Set PlageR = ShR.Range(Cells(2, 1), Cells(n, 9))
PlageR.ClearContents

Pour le 4, as-tu vraiment besoin d'une insertion automatique ? Ça va aussi vite d'insérer un onglet à la main, surtout si tu veux le renommer... Mais, oui, c'est parfaitement possible. Et vu que la macro décrit toutes les feuilles, tout onglet rajouté sera pris en compte.
Bon WE 😎