Résultats de la recherche

Hello, J'ai récupéré une macro tip top: Elle compare les colonnes A & B avec les colonnes C & D. Sub es() Dim t(), t1(), t2(), i As Long, x As Long, m As Object, z Set m = CreateObject("Scripting.Dictionary") t2 = Range("a2:b" & Cells(Rows.Count, 1).End(3).Row) t = Range("c2:d" &...

Bonjour à tous, Voici 3h30 que je m'arrache les cheveux pour que quelque chose qui me paraissait tout simple. Ci joint le fichier avec 2 onglets, un data et l’autre le graph. Je souhaiterais sur une même "barre" qui dissocie les valeurs "RUN" et "BUILD" par nom et par semaine. Le...

Bonjour, J'ai un tableau dynamique et des graphiques associés. Par exemple dans l'onglet NVBC on peut voir des couleurs sur le camembert. Si je change la date la mise en forme revient par défaut. Comment résourdre ce problème ? Merci

Bonjour, J'ai ce bout de fonction: lastrow = Range("A65536").End(xlUp).Row + 1 For i = 2 To lastrow - 1 If Range("E" & i) = " " Then Rows(i).Select Selection.Delete Shift:=xlUp End If Next i...

Bonjour à vous, J'ai un onglet DATA et Sheet5. Je me sers de l'onglet DATA pour faire mon tableau dynamique. Mon souci c'est que dans le colonne E de DATA le format est bien en mm/yyyy par contre la valeur de la cellule est bien la date et dans mon tableau je n'ai pas le format mm/yyyy mais...

Bonjour à tous, j'ai eu feuille xls protégé. Dans le menu je fais Tools, protection et tape le password. Très bien je peux modifier une cellule. Ensuite je veux modifier une autre cellule, et la nouvelle fenetre qui me demande le password. Savez vous comment faire pour dévérouiller une fois...

Bonjour, En PJ, j'ai mis un fichier XLS avec des filtres. Ce que je ne comprends pas c'est pourquoi lorsque je met begins with "3" cela ne retourne rien, idem avec contains "3". Est ce un bug ? Merci

Bonsoir, Je voudrais supprimer les colonnes qui ne servents pas dans un fichier XLS et j'utilise ce code: Columns("V:ZZ").Select Selection.Delete Shift:=xlToLeft le souci c'est qu'a l'execution de la macro j'ai toujours les colonnes et plus je déplace l'ascenseur et plus j'ai de...

Bonsoir, j'arrive bien à envoyer un Email avec SendMail mais impossible de joindre la signature: Sub EMAIL() With Dest Dim appOutlook As Outlook.Application Dim message As Outlook.MailItem Dim myRecipient As Object End With SigString = "S:\Clients\C\Assistante Service...

Bonjour à tous, Je voudrais executer ce code: Sub Sauvegarde() FileCopy ThisWorkbook.path & "\SUIVI PROD CBP VJC.xls", _ ThisWorkbook.path & "\Sauvegarde suivi PROD\Sauvegarde_SUIVI PROD CBP VJC " & Format(Date, "dd_mm_yy") & ".xls" End Sub sachant que ce code est dans le...

Bonjour à tous, voici mon souci: Dans une fonction Main() j'ai un IF. Si la condition IF est vrai cela appel un SUB F1() et une fois que tout SUB F1() est executé cela revient a la fonction Main ce qui me pose problème. J'aimerais que si la condition est VRAI, j'execute mon code de la...

Bonsoir a tous, je rencontre des difficultés avec le renvoi d'une variable par une fonction: Function path() As String path = Application.GetOpenFilename("Excel(*.xls),*.xls") End Function Sub FillFormCRE() Worksheets("Productions en cours").Activate 'Detect the first...

Bonjour, Je rencontre un petit souci pour récupérer des valeurs d'un autre fichier XLS. Pour que cela soit plus explicite voici un extrait du code: Cellule = "F12:F12" Feuille = "BdC VDR SRO 2010$" Fichier = Path Set Source = New ADODB.Connection...

Bonjour à tous, J'ai une feuille XLS avec la valeur 1 dans la cellule A1, la valeur 45 dans la cellule B1 et la valeur A dans la cellule C1. Comment faire pour avoir la valeur 145A dans la cellule A1 ? J'ai essayé en faisant enregistrer les macro mais résultat pas concluant :/ et aussi...

Bonjour, Je travaille sur un fichier XLS et impossible de faire des liens hypertexte. J'ai donc trouvé une macro: 'Création d'un module Module 1 : 'Appel de l'explorateur de fichier par API directement sur "comdlg32.dll" Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias...

Bonjour, Je voudrais copier une cellule et directement mettre son contenu en minuscule. LCase (Workbooks(Wb).Sheets(W01).Range("B" & i & ":E" & i).Copy) Cela ne me retourne pas d'erreur par contre cela ne met pas en minuscule. Avez vous une idée.. Merci

Bonjour, J'ai cette formule qui donne un résultat en D13 =CONCATENER((ABS(GAUCHE(C13;(CHERCHE("(";C13)-1))));".wav") Je n'arrive pas à intégrer ceci en vb, j'ai fais un petit enregistrement: Range("D13").Select ActiveCell.FormulaR1C1 = _...

Bonjour, J'ai une petite question, Est il possible de modifier l'entête d'un doc word pour modifier l'auteur et la date. Voici pour l'instant ma fonction: Sub ExportWord() If k > 12 Then Dim wdApp As Object Dim wd As Object On Error Resume Next Set...

Bonjour, Je ne comprends pas que cette ligne me gènère une erreur: Sheets("TT").Range("A &i:B" & i).Copy ?? En fait je veux copier pour la valeur de i la cellule a et b. Merci

Bonjour, J'ai 2 fichiers, PRBT et PRBT_EN Je voudrais que l'utilisateur ne travaille que sur un fichier pour comparer les 2. Y a t il une fonction qui permet d'ouvrir par exemple en arrière plan l'autre fichier afin de comparer 2 colonnes. QQ chose du syle: 'Set ObjetClasseur =...