Contenu récent par laurent950

Bonsoir @Bambi35 , @sylvanu , @Hecatonchire Il faut commencer par construire une fonction personnalisée VBA pour détecter ce qui est bon ou faux dans un premier temps. Ensuite, une fois les résultats validés, il faudra construire une formule Excel complexe. La fonction Excel serait celle-ci ...

Bonjour c'est ce graphique qu'il faut : graphique à secteurs avec barre de secteur (le fameux camembert éclaté avec détail pour “Autres communes” <4).

Bonjour @finarobert Le code qui permet de detecter : - la ligne 150 de votre fichier Excel "etape2vbacandidat2.xlsm" en Poste #50 ==================================================================================== Code 1 (Variante avec DICTIONARY) Avec l'objet Scripting.Dictionary (Sans...

Bonjour @finarobert La solution se trouve dans ce post #51, via votre post #50 (ci-joint le code VBA ayant légèrement évolué). Constat : la ligne 150 contient ni : ">sp" et "<c"...

VBA avec le fichier en Poste #2

Bonsoir @TooFatBoy c'est très mal expliqué

vous pouvez repérer le probléme sur le fichier ? je vois pas ou il est ! il n'y a aucun moment 1620 sur votre fichier en Poste #2

votre fichier excel du Poste #2 (votre demande d'origine)

VBA avec votre fichier en Poste #2 Sub Programme1Ter_Semblables_Objets() Dim wsSrc As Worksheet, wsDst As Worksheet Dim lastRow As Long, outRow As Long Dim reg As Object, Matches As Object, Match As Object Dim ligne As Range Dim mot As String ' Initialisation reg...

Dans mon code, le mot est pris uniquement si la cellule est numérique : If IsNumeric(Trim(wsSrc.Cells(i, 1).Value)) Then mot = Trim(wsSrc.Cells(i, 1).Value) reg.Pattern = mot Les mots comme 1c3c → jamais pris en compte. Les résultats « manquants » viennent probablement de là. donc Modification...

Bonjour Le Forum @finarobert VBA avec votre fichier en Poste #2 Sub Programme2Bis_Doublons_Regex_Mot() Dim wsSrc As Worksheet, wsDst As Worksheet Dim lastRow As Long, i As Long, outRow As Long Dim idCourant As String, ligneIdentite As String Dim dict As Object Dim ta As...

Bonjour Le Forum @finarobert VBA avec votre fichier en Poste #2 Sub Programme2_Doublons() Dim wsSrc As Worksheet, wsDst As Worksheet Dim lastRow As Long, i As Long, outRow As Long Dim idCourant As String, ligneIdentite As String Dim dict As Object Dim ta As String, tb As...

Bonjour Le Forum @finarobert VBA avec votre fichier en Poste #2 Sub Programme1_Semblables_Regex() Dim wsSrc As Worksheet, wsDst As Worksheet Dim lastRow As Long, i As Long, outRow As Long Dim mot As String Dim reg As Object Dim Matches As Object Dim Match As Object ' Initialisation reg Set...

Bonjour @Jean-Eric, Je m’interroge sur l’intérêt de convertir un nombre en texte dans Excel : =SI(ESTNA(A7);"";SI(ESTNUM(A7);TEXTE(A7;"# ##0_;[Rouge]-# ##0"))) N’est-il pas plus pratique de conserver le nombre et d’utiliser un format de cellule personnalisé pour l’affichage, plutôt que de...

Bonjour Le forum Formules Excel (=A1&amp;B1) → la mise en forme (gras, couleurs, polices) est perdue, seul le texte est récupéré. VBA Excel → on peut récupérer la mise en forme partiellement (par ex. RichText pour les cellules) Code ci-dessous établis pour etre facilement maintenable pour un...