Contenu récent par sixair

bonjour ZAJNI, un essai.. Sub CopieLigne() Dim x As Integer Dim SauvegardeRacine(1 To 3) As Range Dim TabBase As ListObject Dim TabDest As ListObject x = 1 'ligne a copier Set TabBase = Worksheets("Tableau base").ListObjects("Tableau_Base") 'tableau (Envoyeur) Set...

bonjour Gusdb31, je ne suis pas sûr que les colonnes que tu as donné correspondent bien. mais voilà une formule qui devrait (en adaptant si besoin) repondre à ta demande: =SI(ESTNA(EQUIV($B6;'Mirroir Alto 1'!$F:$F;0))=FAUX;INDEX('Mirroir Alto 1'!$D:$D;EQUIV($B6;'Mirroir Alto 1'!$F:$F;0))...

Bonjour Ozone 083, tu peux essayer un NB.SI.ENS contient exemple en F2: =NB.SI.ENS(Actions!$M:$M;"*" & NameTable[[#Cette ligne];[Scope]]& "*") a tester cdlt

Bonjour, avec une macro sur le même principe, permet d’effacer en colonne A cdlt

bonjour Gannet, =OU(JOURSEM(B$2;2)=1;JOURSEM(B$2;2)=7) appliqué à toute la plage...

bonjour, liste un peu plus complète: Option Explicit ' Définition de la conversion Const Accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç" Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc" ' La fonction : Public Function...

bonjour eudes, pas grand chose dans le code... ton fichier en PJ

Bonjour Jakomino, voici pour la gestion événementielle pour le formulaire, il faudra adapter selon le type... cordialement

Bonjour LOLO, un exemple en PJ Six'

Re Bellenm, j'ai retiré la MFC et remis la mise en couleur dans le code...

Re : Macro recherche bonjour Arthour, en lançant une recherche avant d'ouvrir la boite de dialogue ? Private Sub Worksheet_SelectionChange(ByVal target As Range) If target.Count > 1 Then Exit Sub If Not Intersect(target, Range("F8:F34")) Is Nothing And target <> "" Then...

Re : Remplir une feuille excel à partir d'une autre Bonjour jihane, en VBA ? ou formule Recherchev + MFC feraien-ils l'affaire ? exemple.. Cdlt

Re : Tableau trop lourd Bonjour, peut-être une explication ? Il y a ce qu'on voit ou pas... Cdlt

Re : Ecrire un texte dans la cellule active et inserer un espace avec les boutons Bonjour, pas sur d'avoir compris... Dans Userform.initialise je modifierais If n = 92 Then Boutons(Nb).touches.Caption = "" en If n = 92 Then Boutons(Nb).touches.Caption = " " et je ciblerais la cellule...