Contenu récent par vgendron

hello sinon, utilise la fonction "Temps"

la version de BernardXld/Patrick: je la garde de coté, ca peut toujours servir; celle de Phil69970: je vais m'en inspirer pour la version "USF" de mon appli Celle de mapomme: à part le fait qu'elle ne revient pas sur l'onglet initial, idem je la garde: ne serait ce que pour l'utilisation du...

hello tous ! je vois que ca vous inspire je n'ai pas encore regardé toutes vos propositions, merci d'avance à tous, mais la première que je vois, celle de Sylvanu, correspond à celle que j'avais trouvé depuis Sub TestSelSheet() Set FeuilleActive = ActiveSheet 'sauvegarde de la feuille...

Bonjour à tous je souhaite demander (via un inputbox?) à l'utilisateur de selectionner un onglet Le code suivant, ca fonctionne mais l'utilisateur doit cliquer SUR une cellule de l'onget sub testselection Dim onglet As Worksheet Dim FLT1 As Range Dim NomOnglet As String 'on demande à...

@mapomme bizarre, j'avais testé le code de ce fameux espace et un asc(mid(valeur,3,1)) me retournait bien 160... mais bon.. comme j'ai pas creusé, suis parti direct sur le code proposé et je ne m'explique pas pourquoi un "replace(valeur," ","") ne donne rien (pas plus qu'un (ctrl +F...

hello Comme je n'arrive pas à supprimer l"espace insécable - CHR(160)- je te propose le code suivant Sub conv() Dim TabData() As Variant With ActiveSheet TabData = .Range("A1").CurrentRegion.Value For i = LBound(TabData, 1) To UBound(TabData, 1)...

BOnjour et bonne année ! Sinon, tu utilises les tables structurées

mieux ici Sub Fusion() Dim F, DL%, DL2%, N% Dim TabData() As Variant Nettoyage SuppFeuillesMasquées Application.ScreenUpdating = False For Each F In Worksheets If F.Name <> "Synthèse" Then N = N + 1 With Sheets(F.Name) DL = Application.Max( _ 1 +...

Sub Fusion() Dim F, DL%, DL2%, N% Dim TabData() As Variant Nettoyage SuppFeuillesMasquées Application.ScreenUpdating = False For Each F In Worksheets If F.Name <> "Synthèse" Then N = N + 1 With Sheets(F.Name) DL = Application.Max( _ 1 +...

hello avant de rajouter des colonnes 1) il faut que tu modifies les tableau pour qu'il y ait les memes colonnes "H M T S A SD" sur TOUTES les lignes ==> ca veut dire qu'il faut modifier le code pour harmoniser tout ca ==> ou alors te taper l'insertion de la colonne H manquante sur toutes les...

non, une formule ne peut pas effacer le contenu d'une autre cellule il faut passer par du code VBA

Re, il ne s'agit pas de TCD (Tableau Croisé Dynamique) mais de Table Structurée l'intérêt est que tu n'as pas besoin de "préparer" des lignes vides avec des formules qu'on ne voit pas lorsque tu ajoutes une donnée juste en dessous de la Table, celle ci s'ajuste automatiquement et les formules...

Hello une proposition en PJ

sérieusement.. tu as regardé la fichier que je t'ai envoyé post #2 ?? je t'ai mis une formule en cellule B15 et que j'ai colorée en jaune !! si tu n'arrives pas à comprendre ca.. bah.. je ne peux rien pour toi !

B15, JAUNE !! revois tes couleurs et les nombres !