Résultats de la recherche

Bonjour, Je fais des comparaisons de données dans un fichier à partir de recherche V. Ces comparaisons sont écrite en VBA, par contre pour des soucis de simplicité j'écris mes formules en mettant en dur le noms des fichiers et des répertoires exemple: ActiveCell.FormulaR1C1 = _...

Bonjour, J'écris une fonction de recherche ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(LEFT(RC[-3],5),'[Etude-Media.xlsm]Feuil1'!R1C2:R28C3,2,FALSE),0)" où je peut tout mettre en variable: Etude-Media.xlsm=FicMacro Feuil1 = SheetMagasin R1C2:R28C3, je suis capable de le transformer...

Bonjour, Je réalise une compilation de fichier de résultats de vente qui est dans l'onglet compilation. Je dois créer le TCD qui est dans l'onglet TCD_NP. Le réaliser sans filtre sur le champ Magasin commercial tel qu'il est je n'ai pas de problème. Je dois par contre réaliser un TCD en...

Bonjour, J'aurai besoin d'écrire une formule de recherchev avec traitement d'erreur dans une plage. J'ai le code suivant For I = 2 To NligMagRel - 1 'Cells(I, 2).Formula = "=SI(ESTNA(RECHERCHEV(A2;$E$1:$F$25;2;FAUX));"";RECHERCHEV(A2;$E$1:$F$25;2;FAUX))" Cells(I, 2).Select...

Bonjour, Je désirai savoir comment récupérer les informations suite à une succession de filtres. Dans l'exemple en pièce jointe j'ai filtré le champ marque ( Belvedere) le champ anomalie (1) Tout cela je sais le faire en VBA. Par contre je ne sais pas comment récupérer les valeurs restantes dans...

Bonjour, J'ai le code suivant: Windows(FicPos).Activate Workbooks(FicPos).Sheets(SheetMagasin).Select NbLigneMag = Cells.SpecialCells(xlCellTypeLastCell).Row NbColMag = Cells.SpecialCells(xlCellTypeLastCell).Column Workbooks(FicPos).Sheets(SheetMagasin).Activate...

Bonjour, j'ai besoin d'afficher la liste unique de magasin se trouvant dans une colonne d'un onglet. Cette liste je désire soit l'afficher dans une onglet soit l'afficher dans une combobox ou les deux Une fois cette liste sélectionner, j'ai besoin de sélectionner une valeur pour ensuite...

Bonjour, Je fais une recherche dans une plage en utilisant le code si dessous: For lgLig = 2 To NbLigCaisseI bTrouve = False ' Boucle de la première à la dernière ligne de la colonne X For lgCpt = 1 To NbLigCaisseI ' Si donnée de la...

Bonjour, J'ai besoin de créer plusieurs Tableaux Croisés Dynamiques de façon automatique avec des filtres variables (dont je connais les valeurs) Voici l'exemple de code que je voudrai avoir de façon variable With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields( _ "Num...

Bonjour, J'ai besoin de créer plusieurs Tableaux Croisés Dynamiques de façon automatique avec des filtres variables (dont je connais les valeurs) Voici l'exemple de code que je voudrai avoir de façon variable With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields( _...

Bonjour, J'ai besoin de copier les lignes d'un fichier, et j'ai le message d'erreur suivant Sub ou Fonction non définie. Voici le code que j'utilise RepCaisse = Variable définie plus haut (c'est le répertoire ou se trouve le fichier) FicCaisse = Variable définie plus haut (c'est le nom du...

Bonjour, Je cherche désespérément a afficher dans une listbox les item se trouvant dans une colonne d'une feuille excel Voici le code que j'utilise lors de l'ouverture de ma form Private Sub UserForm_Initialize() Dim i As Integer Dim myRange As Range With...

Bonjour, Je termine une macro par la sauvegarde et fermeture d'un fichier de résultat; par contre j'ai une boite de dialogue (fichier joint) de confirmation d'enregistrement qui s'ouvre et je n'en voudrait pas. Je passe les commandes suivantes: ActiveWorkbook.Save...

Bonjour, j'ai une formule de recopie vers la bas d'une colonne: Selection.AutoFill Destination:=ActiveCell.Range("A1:A550"), Type:= xlFillDefault j'ai l'intention de remplacer 550 par une variable nombre de ligne NBlig déclarer précédemment. j'ai essayé Selection.AutoFill...

Je désire remplir un tableau avec du rechercheV avec la formule suivante: ActiveCell.FormulaR1C1 = "=vlookup(rc[-1],user!r2c1:r520c60,5,false)" par contre je désirerai replacer la plage de recherche: "r2c1:r520c60" par des variables par exemple r2c1:r(Nombre de ligne du tableau)c(nombre de...