Résultats de la recherche

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...

Re : MFC sur dépassement dates Bonjour letroubadour, Dans la MFC, remonte la condition "Cellule vide" en haut de la liste, et coche "Interrompre si vrai" Cdlt

Re : 2 Private Sub Worksheet_SelectionChange(ByVal Target As Range) pour la même feui et si tu mets juste sous ton code: Sub toto() Call FormulesExped End Sub et que te lances cette procédure, ça marche ? Car je pense que le problème est ailleurs... Mais sans fichier, c'est comme chercher...

Re : 2 Private Sub Worksheet_SelectionChange(ByVal Target As Range) pour la même feui Bonjour, Pour moi c'est correct, je préfère la forme proposée par JCGL (gout personnel) Juste pour dire : Application.ScreenUpdating = False Est-il utile ? Si oui, Application.ScreenUpdating = True serait bien...

Re : Interdiction de Copier/Couper cellules ou plages de cellules en vba Bonjour, tu peux essayer ça, à mettre dans ThisWorkbook: Private Sub Workbook_Deactivate() Application.CutCopyMode = False End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As...

Re : Problème de ma base de données Bonsoir, j'ai du mal a saisir ton Userform... Le bouton "Nouvelle fiche" lance la procédure "Rens_Ctrl", donc créé une ligne puis, dans "Rens_Ctrl" plv = dl + 1 insère les données sur la ligne suivante... Private Sub CommandButton_nouvelle_Click()...