Résultats de la recherche

Bonjour à tous, Je n'arrive pas à compléter ma formule avec une condition supplémentaire. Ma formule : =DECALER(MATERIEL!$B$1;EQUIV("Z001";MATERIEL!$E$2:$E$1048576;0);0) Un extrait de ma feuille : Je souhaiterais que le texte cherché de la colonne B contienne les lettres KZ (ex 9 9798 E KZ...

Bonjour à tous, Je n'arrive pas à extraire des données sans doublons et à les regrouper. Voici mes données : Et je souhaiterais, par formule (ou VBA) obtenir ces résultats : J'ai essayé d'extraire toutes les données 1 par 1 dans des cellules distinctes puis de faire mes regroupements mais...

Bonjour à tous, Je souhaiterais activer 10 feuilles 1 par 1 afin de récupérer des infos J'ai commencé un bout de code mais il bloque à la sélection de la feuille je précise que je dois traiter avec les noms d'onglets - Sheets("NM BUS 01") - et pas les numéros - Feuil6 - car ce sont des...

Bonjour à tous, Je n'arrive pas à trier ça : Pour arriver à ça: Quelqu'un aurait-il une solution pour moi ? Par avance, merci.

Bonjour à tous, J'essaie de créer une macro afin de sauvegarder toutes les feuille d'un classeur SAUF les 4 premières. J'arrive à les sélectionner avec ce code: Sub test() Dim i& Sheets(5).Select For i = 5 To Sheets.Count If Sheets(i).Name <> "ACCUEIL" Or _ Sheets(i).Name <> "CABLES" Or _...

Bonjour à tous, J'essaie, sans grand succès, de combiner 5 recherches de texte + une gestion du "rien trouvé" dans une seule formule. Par exemple, dans le fichier joint, je souhaiterais que les formules en B*, C*, D*, E* et F* soient en 1 seule formule en H* (et aussi la gestion du "vide" pour...

Bonjour à tous, Dans un tableau colonnes D et CH, j'ai du texte sous cette forme " 0 0000 E Kx 000000 " (le x pouvant être C, D, F, J, M, U). J'extrais le texte depuis le E jusqu'à la fin (par ex: E Kx 000000) avec ce code : For Each c In Range("B1:B1048576") xx = InStr(c.Offset(0, 2).Value...

Bonjour à tous, Dans le fichier joint, je tente de trouver la valeur correspondant à 4 critères par une formule (trouvée sur le Net). =INDEX(ANIMAL;SOMMEPROD((Liste_SEXE=B2)*(Liste_COULEUR=C2)*(Liste_RACE=D2)*(Liste_POILS=E2)*LIGNE(Liste_ANIMAL))) Mon souci est que : - Quand les 4 conditions...

Bonjour à tous, Je me lance dans la récupération de tableaux Word vers Excel. (Capture du fichier Word) Après quelque recherches sur le Net, Voici ce que j'ai réussi à "Bricoler": Sub copieTableauWordVersExcel() Dim WordApp As WORD.Application Dim WordDoc As WORD.Document Dim sStr As String...

Bonjour à tous, Comme je le demande dans l'objet de ce post, y aurai-t'il une solution pour accélérer le traitement de cette macro ? (environ 30 mn pour 50 000 lignes actuellement) Sub Ajout_Col() MaFeuil = Feuil3.[A1048576].End(xlUp).Value Worksheets(MaFeuil).Select dercol = Cells.Find("*", ...

Bonjour à tous, Dans mon code (ci-dessous), je détermine ma hauteur de ligne en fonction du nombre de caractères et de la largeur cumulée des colonnes de cellules fusionnées. Sub Hauteurs_Lignes() Feuil1.Activate Art = "Calorifuge à démonter" Div = 0.95 Mult = 18 With ActiveSheet.Range("A:D")...

Bonjour à tous, J'utilise la fonction GetOpenFilename pour ouvrir, à chaque fois, 2 fichiers l'un après l'autre dans chaque répertoire. Sub Ouvrir_Fichier() Dim result As String LectChemin$ = ThisWorkbook.Path If ActiveLectChemin(LectChemin$) Then Nom_Fichier =...

Bonjour à tous, J'ai récupéré du code sur ce forum (Merci Gorfael - post du 16/02/2011) que j'ai essayé de modifier sans succès. Sub TestSiImgDansPlg() Dim Sh As Shape, Plage As Range, Plg As Range'<= Modif OK For Each Sh In ActiveSheet.Shapes If Sh.Type = msoPicture Then '<= Modif OK...

Bonjour à tous, J'ai ce petit bout de code (récupéré sur le net) pour concaténer plusieurs cellules en une : Sub Concatener_TXT() Cells(2, 2).ClearContents For i = 1 To 50 Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1) Next Columns("A:B").ColumnWidth = 50 Columns("A:B").AutoFit End Sub...

Bonjour à tous, J'ai une formule qui me récupère la fin d'un texte après les ":" (Nbre de lignes traitées : 7 801) =SI(A2="";"";DROITE(INDIRECT("'"&A2&"'!A11");NBCAR(INDIRECT("'"&A2&"'!A11"))-TROUVE(":";INDIRECT("'"&A2&"'!A11")))) J'en ai environ 15 et je souhaiterais les additionner...

Bonjour à tous, Je cherche désespérément à extraire dans une cellule les derniers caractères (longueur variable) entre le dernier "_" et le "." Voici mon code Sub Ouvrir_Fichier() Dim result As String LectChemin$ = ThisWorkbook.Path If ActiveLectChemin(LectChemin$) Then Nom_Fichier =...

Bonjour à tous, Dans un module de recherche de texte, je souhaiterais déclarer une variable à 1 ou plusieurs critères. Voici mon code : Sub Rech_RGF() FeuilleCible = "Feuille 1" TxtCherche = "Texte 1" Feuil2.Activate For Each MaRECH In Feuil2.Range([A2], [A1048576].End(xlUp)) If...

Bonjour à tous, J'ai créé (bricolé surtout) un petit bout de code pour me positionner en dessous de la dernière des images existantes d'une feuille mais c'est un peu aléatoire (tout dépent de la position des images). Voici mon code : Sub CellDernImage() Dim Ma_Forme As Picture For Each...

Bonjour à tous, Comme vous pourrez le voir plus bas, je ne maîtrise pas complètement le VBA ... Le petit bout de code que j'ai essayé de créer (afin de boucler vers le bas puis de passer à la colonne suivante pour boucler à nouveau vers le bas puis passer à la colonne suivante ... etc) ne...

Bonjour à tous, Je bloque avec le code ci-dessous. Je n'arrive pas à sélectionner les feuilles nommées en fonction du critère en cellule A4. Sub Enreg_XLS_NM_ETIQU() Dim LaDate As String, LeParcours As String, LeRep As String MonBUS = Feuil15.Range("B4").Value & " " & Feuil15.Range("D4").Value...