probleme dans code macro

loisphil81

XLDnaute Junior
Bonjour forum

j'ai un tableau dans lequel je souhaiterai recopier des valeurs
tout fonctionnais bien mais il a fallu que rajoute des noms dans liste
et depuis ca ne fonctionne plus
le fichier joint est assez explicite
merci pour votre aide
 

Pièces jointes

  • Suivi des poses compteur 23-08-17.xlsm
    41 KB · Affichages: 42

loisphil81

XLDnaute Junior
René
1) il y a une ligne qui n'est pas prise en compte dans la copie des valeurs
sur la feuil Relevé ENE A1-B1-C1-D1-E1
j'ai essayé de trouver la ligne de code pour modifier la plage sans reussite je ne sait pas ou c'est
toute les marche bien.
2)les totaux il vaut mieux les remettre en bas car en haut je n'ai accès qu'a une fonction
si les totaux sont placés en bas comme le veut excel j'ai accès a plusieurs choix de fonctions
sommes,nombre,écart-type,moyenne etc ...
hors mis cela ça marche impeccable une première épine d'enlevée
Merci pour tout
je t'attends avec impatience !
 

loisphil81

XLDnaute Junior
c'est bon rené j'ai trouvé c'est la plage de cellule feuille Stats compteurs semaine qui n'a pas la bonne selection de cellules

reste plus qu'a remettre les totaux en bas et j’insérerai les lignes supplémentaires a créer au fur et a mesure
pas grave les totaux se recopie c'est l'essentiel
 

loisphil81

XLDnaute Junior
je crois comprendre en fait j'ai pas fait attention quand j'ai crée le fichier j'ai surement un modele excel avec déjà des fonctions dedans c'est pour cela qu'on peux pas bidouiller il faudrait que je recale avec un fichier vierge qui ne provient pas d'un model excel faut que je recommence tout sur un fichier vierge
 

loisphil81

XLDnaute Junior
Bonjour René
Pour le bouton report pas problème
pour le bouton 1 feuil relevé ENE le tri ne se fait pas
J'ai bien réglé au 1/09
bug ici
Sub AjouteNouveau()
Dim i As Long, j As Long, C As Long, test As Boolean
For i = 1 To UBound(TblRelevé)
test = True
For j = 1 To UBound(tbl, 2) Step 4
If TblRelevé(i, 1) = tbl(1, j) Then test = False: Exit For
Next j[/code]
 

Pièces jointes

  • Stats individuels Philv5r.xlsm
    40.2 KB · Affichages: 25

Discussions similaires

  • Résolu(e)
Microsoft 365 Code de tri
Réponses
22
Affichages
298
Réponses
11
Affichages
188
Réponses
1
Affichages
109
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 206
Messages
2 086 203
Membres
103 157
dernier inscrit
youma