Contenu récent par fanch55

Bonjour à tous, Pour le fun, fonctionne quel que soit le caractère de séparation : Sub Extraire() [A5].Formula2Local = "=STXT(C5:C350;4;3)" End Sub Remarque: la formule peut être entrée en direct sur la cellule A5 pour se passer de Vba

Présent, je vous ai répondu dans les MP postés 🤗

Activez l'accès aux components du Vb dans les options Excel

Le classeur joint utilise juste un textbox pour faire un filtre dynamique sur les Site,Nom,Prénom et Ville .

Exécutez le code pas à pas et dites moi quelle ligne provoque l'erreur 1004

Dans un module, il faut l'exécuter manuellement

Ce n'est pas ce qui est au #34

Une autre façon de surligner en MFC la ligne sélectionnée : Il faut toutefois mettre dans le code de la feuille : Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'ThisWorkbook.Names.Add "lig", ActiveCell.Row 'nom défini pour la MFC Me.Calculate End Sub

Remettez le Row_Data = 4

Sub Corrigée : Sub Goto_Site() Dim Target As Range, Plage As Range, To_Find As String, Last_Cell As Range ' on récupère le 1er caractère du texte contenu dans le bouton To_Find = Left(Trim(Shapes(Application.Caller).DrawingObject.Caption), 1) ' on définit la plage de données...

Je vais corriger le goto_site, je sais pourquoi . Le find quand il lance la recherche le fait toujours après la position courante, le début de plage par défaut. On cherche le C qui est en début de données, la recherche se lance donc à partir de la première ligne (exclue), le résultat est donc la...

C'est une sub qui détruit les modules vides du code, vu le nombre existant, cela me gavait de devoir tous les parcourir pour retrouver du code...

Dans le code de la feuille "base de données", vous trouverez une sub "Bld_List" qui vous créera les noms et validation nécessaires .* Option Compare Text Const Row_Data = 4 ' Ligne où commencent les données Function Bld_List() Dim Plage As Range, Cel As Range, Nb_Rows As Long, I As Long...

Le classeur-joint ne filtre que les noms et prénoms .

Normal, petite erreur quand j'ai voulu simplifier la sub, le code ci-dessous remplace l'autre : Sub Goto_Site() Dim Target As Range, Plage As Range, To_Find As String ' on récupère le 1er caractère du texte contenu dans le bouton To_Find =...