Résultats pour "export fichiers pdf macro boucle creant nom"

12'820 résultats pour cette recherche

Bonjour à tous,

Je cherche à créer une boucle vba qui sélectionne copie colle une variable à partir d'une liste de valeur dans un onglet de calcul et de graphique puis sélectionne deux onglets de mon fichier pour les exporter en fichier pdf.

La boucle fonctionne si j'écris le nom de destination en dur (mais du coup enregistre les fichiers les uns sur les autres et ne me laisse donc que le fichier avec la dernière valeur).

J'ai essayé vainement depuis 2 jours de définir le nom comme une variable mais ça refuse de fonctionner.

Je vous joints la macro dans l'espoir que l'un d'entre vous pourrait m'expliquer ce qui pèche. Je précise que je suis débutant et que c'est ma première tentative d'écrire une macro.

Merci d’avance à vous.

Sheets("Table des équipes").Select

Dim i As Integer

For i = 0 To 1

Sheets("Table ").Select

Dim Nomfichier As String

Nomfichier = Range("d" & (i + 3)).& ".pdf"

Range("d" & (i + 3)).Select

Range("d" & (i + 3)).Select

Selection.Copy

Range("A4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets(Array("Graphique ARRCO", "Graphique AGIRC")).Select

Sheets("Graphique ARRCO").Activate

Application.CutCopyMode = False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"H \Fichiers à transmettre\Île de France\ Nomfichier ", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Next i

End Sub

Bonjour à tous,

Comme l’indique mon titre, je souhaiterai nommé le fichier que j’export en PDF via ma macro avec un début de phrase « Liste de fourniture de » puis compléter avec les cellules « B2 » et « B1 ».

De plus, j’aimerai exporter la page 2 uniquement qui s’étend de « A51 » à « J80 ».

La formule de ma macro (ci-après) fonctionne pour l’export en PDF mais me le nomme avec le nom de mon fichier et me l’export entierement.

Sub Editer_liste_fourniture_en_PDF() Dim TempFile As String Dim FinalFile As String FinalFile = "/Users/JC/Documents/Taff/" & ActiveWorkbook.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ TempFile, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False End Sub

Je vous remercie d’avance pour votre aide.

Bonjour à vous

J'ai une petite question à vous demander !

J'ai actuellement cette macro qui fonctionne très bien pour enregistrer un pdf (dans le dossier où est enregistré le fichier Excel) :

Sub pdf()

Dim Ar(2) As String

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Range("B7").Value & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

End Sub

Cependant, concernant l'enregistrement dans le répertoire j'aimerai :

  • que la macro crée un dossier en le nommant "donnees"
  • À l'intérieur de celui-là, il faut que la macro crée un sous-dossier avec un nom qui dépend du texte présent dans une cellule (exemple : "validation 2016-12-07")
  • Puis encore à l'intérieur de ce sous-dossier, créer un dossier avec un nom défini "extraction"
  • Il faut bien entendu que la macro ne crée aucun dossier ou de sous-dossier s'il existe déjà bien évidemment

Pour simplifier : la macro enregistre le pdf dans l'arborescence suivant : Dans le dossier actuel du fichier Excel (qui peut être déplacé) il y a un dossier nommé "donnees". À l'intérieur il faut créer un dossier qui se nomme avec la date du jour "validation 2016-12-07" puis un autre sous-dossier avec un nom défini (exemple "extraction").

Je sais que c'est techniquement faisable, mais... je sèche !

Avez-vous une solution ?

En vous remerciant,

Nicolas

Bonjour

Désolé, je penses que la question a déjà été aborder, mais après avoir lu pas mal de post, mon niveau d'Excel ne m'a pas permis de comprendre (je n'ai jamais fait de macro...)

J'ai plusieurs fichiers excel que je cherche à réunir sur un seul.

Les fichiers (avant réunion) donneraient le nom des onglets créer dans le nouveau fichier.

exemple 2 fichiers joint : "Budget Chili" et "Budget Laos" => à réunir sur une seule feuille avec du coup 2 onglets qui s'appelerait "Budget Chili" et "Budget Laos" (sans l'extension .xlxs)

Quel serait la macro à utiliser (que je puisse l'utiliser autant de fois possible et avec maximum 50 fichiers initiaux

J'espère être suffisamment clair?

Merci de votre aide précieuse

Bonne journée

Téva

9budget-chili.xlsx (33.86 Ko)
16budget-laos.xlsx (17.32 Ko)

Bonjour à tous,

C'est mon 1er post sur le forum, excusé de la longueur.

Je rencontre un soucis depuis peu avec un fichier contenant des macros.La macro s'exécute correctement lorsque je la lance mais lorsque je ferme le fichier, au moment de le ré-ouvrir, Excel me dit qu'il a trouvé un problème dans le contenu du fichier. Si j'accepte la réparation, Excel me demande d'écraser l'ancien vu qu'il a fait des réparations.

Jusque la ok, mais le hic c'est que je me rend compte que je perds des informations saisies au préalables du fait de cette réparation.Je me suis rendu compte que cela n'arrive uniquement lorsque je lance une macro qui concerne un filtre automatique sur un tableau.

Voici ce qu'Excel m'affiche lorsque j'ouvre le journal des réparations :

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>

- <recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">

<logFileName>error060041_01.xml</logFileName>

<summary>Des erreurs ont été détectées dans le fichier « F:\Mes outils de gestion\Outils\Trésorerie\Gestion trésorerie.xlsb »</summary>

- <removedRecords summary="Liste des enregistrements supprimés ci-dessous :">

<removedRecord>Enregistrements supprimés: Tri dans la partie /xl/tables/table1.bin (Tableau)</removedRecord>

</removedRecords>

</recoveryLog>

J'ai aussi joint des photos de ce qu'Excel affiche.

Merci beaucoup d'avance.

plantage 1 plantage excel

Bonjour à tous,

Dans Excel, je voudrais avoir une macro qui ajouterai dans le classeur en cours une nouvelle feuille (qui serait la copie d'une feuille existant dans le classeur)et dont le nom serait automatiquement la date du jour...

Vous voyez le principe? J'ai une feuille de calcul sur laquelle je reporte chaque jour les chiffres d'activité de ma tournée. Chaque jour, je clique sur "insérer une feuiile", qui est une copie de celle de la veille, je modifie le nom de la feuille en la nommant en fonction de la date du jour, puis je peux enfin saisir mes chiffres de la journée.

Y a-t-il un moyen de faire ça en un clic?

Merci de votre aide, là je sèche un peu... heu je suis débutant

211tableau-instance.xlsx (45.84 Ko)

Bonjour

grâce à une macro,

Je souhaite créer un code géographique lettré (A/B/C/D/E/F/G) selon le code postal ou le pays.

CAS1

si pays (colonne L) <> France alors code = "G"

CAS2 le code proche (4 cas possibles)

si (recherchev avec valeur exacte selon le centre (colonne A) et codepostal(colonne J), tableau geo;0)=vrai; "A"

=> voir la liste selon centre dans PJ

CAS3 le 62

si gauche de code postal (colonne j) =62; "B"

CAS4 le 59

si gauche de code postal (colonne j) =59; "C"

CAS5 le 02-60-80

si gauche (de codepostal (colonneJ);2)= {60;80;02} = D

l' ile de france

CAS6

si gauche (de codepostal (colonneJ);2)= )={"75";"77";"78";"91";"92";"93";"94";"95"},"" = E

CAS7 autre département

RESTE "F"

merci pour votre aide.

Michel

27code-geo.xlsx (14.58 Ko)

Bonjour à tous,

J'ai une base de données excel et je désirais pouvoir par l'intermédiaire d'un bouton ou lien hypertexte (présent sur chaque ligne) créer et afficher un document word qui possède plusieurs éléments de la ligne de la table excel (par exemple le fichier .doc créée pourra avoir une ligne de texte contenant des données présentes dans la table excel).

Merci d'avance.

ps:c'est la première fois que je me met aux macros donc soyez cool, je suis novice ^^.

Bonsoir à tous,

Voilà mon problème...

Quand je veux créer/exporter un pdf, qui dans son nom de fichier, contient des valeur "Date", cela me renvoie l'erreur 1004...

La macro:

Function CréationPDFMétrés() As String

   Dim sRep As String      ' Répertoire de sauvegarde du pdf
    Dim sFilename As String ' Nom du pdf
    Dim strRep As String    ' Répertoire du dossier "Métrés"
    Dim dateTime As Date    ' Mémorise la date et l'heure de création du fichier

    sRep = "C:\Users\Devis clients\" & ActiveSheet.[I8] & "\Métrés\"
    sFilename = "Métrés N°" & ActiveSheet.[F9] & "XXX" & "_" & ActiveSheet.[I8] & Format(Now, " (dd/mm/yyyy - hh'nn'ss)") & ".pdf"
    strRep = "C:\Users\Devis clients\" & ActiveSheet.[I8] & "\Métrés"

    Call CreerRepertoire(strRep)

    dateTime = Now()

    Sheets("Métrés").ExportAsFixedFormat _
                 Type:=xlTypePDF, _
                 Filename:=sRep & sFilename, _
                 Quality:=xlQualityStandard, _
                 IncludeDocProperties:=True, _
                 IgnorePrintAreas:=False, _
                 OpenAfterPublish:=False

    ' On vérifie que le fichier a bien était créé
    If sRep = ("Métrés N°" & ActiveSheet.[F9] & "XXX" & "_" & ActiveSheet.[I8] & " (" & dateTime & ")" & ".pdf") <> "" Then
        MsgBox "- Le dossier client a était créé avec succès!" & vbCrLf & _
                "- Le .pdf de ""Métrés"" a était créé avec succès!", vbInformation, "Infos..."
    Else
        MsgBox "ERREUR, Le .pdf de Métrés n'a pas était créé...", vbExclamation, "Ooups !"
    End If

End Function

A savoir que:

ActiveSheet.[F9] = "2016/12-"

Bonjour,

Voilà je viens de prendre une nouvelle fonction de gestion d'atelier.

Je veux simplifier une démarche par rapport à un tableau excel en pièce jointe.

6matrice.xlsx (38.45 Ko)

Aujourd'hui mon chef d'équipe pour programmer les véhicules qui doivent entrer en révision chaque semaine il doit consulter le tableau et lire par colonne correspondant à la semaine concerné les véhicules concernés par une opération.

Je pense qu'initialement le tabelau est peut être mal fait pour exploiter une lecture simple.

J'entends par lecture simple, se serait d'avoir un masque de saisi, que le chef d'équipe précise la semaine qu'il recherche et qu'à partir de là s'affiche les véhicules concernés par une opération.

J'ai essayé le TCD mais pas exploitable, surement du VBA mais là pas calais... Si quelqu'un peut m'éclaircir j'en serai ravi.

Merci à vous.

Bonjour

Je suis vraiment débutant, depuis 1 mois car pour mon nouveau travail, j'ai des tâches répétitives à faire.

J'ai eu des difficultés, mon code n' est pas académique, il n est pas fini, il fonctionne mais avec un beug.

Le but est de créer des bons de commande via un user form

Je renseigne les initiales du donneur d'ordre, le n° du d'affection du dernier bon, et l'année

quand je click sur validez, j'ai une nouvelle feuille qui se crée en copiant les valeurs et la largeur des colonnes (cela marche très bien) la feuille se nomme COPIE

là ou ca merdouille, je veux créer un nouveau dossier copiant Copie (valeur et largeur de colonne), le fichier se fait sans soucis.

pour l'instant je marque "bonjour" dedans en A1, je lui donne un chemin pour l enregistrer et il se nomme "n° affectation. - 18 - initiale du donneur d'ordre.

mon problème. c 'est qu'en ouvrant le fichier crée j ai une feuille qui s'ouvre. ok ce que je veux et j 'en ai un autre vierge indésirable

Mon code n'est pas du top du top merci de votre compréhension

Private Sub CommandButton1_Click()

Dim j As Integer

Dim i As Integer

i = 0

j = Me.ComboBoxNBREBON.Value 'nombre de bons a créer

k = Sheets("ADZA").Range("F2").Value

Sheets("ADZA").Activate

Range("F3").Select

ActiveCell = Label5.Caption

Do While i < j

Sheets("ADZA").Range("F2") = Sheets("ADZA").Range("F2").Value + 1

Sheets.Add.Name = "COPIE"

Worksheets("COPIE").Activate

Worksheets("FEUILLEVIERGE").Range("A1:K41").Copy (Worksheets("COPIE").Range("A1:K41"))

Worksheets("FEUILLEVIERGE").Columns.Range("A:K").Copy

Worksheets("COPIE").Columns.Range("A:K").PasteSpecial (xlPasteFormats)

Range("J2").Select

ActiveCell = Sheets("ADZA").Range("F2").Value & "-" & Sheets("ADZA").Range("F3").Value & "-" & Sheets("ADZA").Range("F4").Value

Dim App As New Excel.Application

Dim Wbk As Excel.Workbook

Set Wbk = App.Workbooks.Add

With Wbk.Sheets(1)

.Range("A1") = "bonjour"

End With

Dim P As String

P = Sheets("ADZA").Range("F2").Value & "-" & Sheets("ADZA").Range("F3").Value & "-" & Sheets("ADZA").Range("F4").Value

Wbk.SaveAs Filename:="C:\Users\nono\Desktop\BON1000\" & P & ".xlsx"

Wbk.Close

Set Wbk = Nothing

Set App = Nothing

Application.DisplayAlerts = False

Worksheets("COPIE").Delete

Application.DisplayAlerts = True

i = i + 1

Loop

Unload Me

End Sub

Je cherche à copier des cellules selon une condition mais il faudra créer des lignes au passage.

En feuil1 j'ai en colonne A des données différentes mais qui se répètent plusieurs fois. En colonne B j'ai d'autres données mais qui sont uniques.

Je veux copier dans la feuil2 les données de la colonne B selon les données de la colonne A. J'ai essayé avec rechercheV mais comme les données de la colonne A se répètent et qu'il me faut à chaque fois les infos de la colonne B correspondantes, je cherche un moyen de créer des lignes.

Exemple :

Feuil1 mes données

colonne A colonne B

code noms

1 xxxxx

3 yyyyy

3 ttttttt

2 oooo

1 bbbb

2 ccccc

En feuil2 je souhaite avoir au final

colonne 1 colonne B

code noms

1 xxxx

1 bbbb

En feuil3 j'aurais les codes 2, en feuil4 les code 3, etc

Merci de vos conseils.

Bonjour à tous,

Je suis lecteur ici depuis un petit moment déjà, novice en tableur, moins en informatique.

J'ai déjà été dépanné grâce à certaines de vos idées (adaptées avec de la bidouille) mais là je suis perdu.

J'ai besoin de créer une liste de variantes de toutes les résultantes...

Je m'explique. Je dois créer des codes articles pour un ERP (et je n'ai pas d'autres moyens que une liste importable, j'ai déjà regardé les solutions internes et automatiques ...) à partir d'une liste d'articles de base et de diverses "options" (traitements, matériaux, finitions).

J'ai des colonnes qui font entre 12 et 16 champs, classées dans l'ordre dans lequel elles doivent apparaître dans le code.

Certains champs n'ont rien a voir avec d'autres (et seront supprimés).

Je pensais créer les articles type par type de manière à réduire le nombre de résultantes (plus facile à trier manuellement).

J'ai quand même tout réuni dans l'exemple que j'uploade (avec un exemple du résultat attendu en jaune)

Contrairement à cet exemple, je peux limiter certains réultats avant la création de la liste en supprimant certains arguments (par exemple les types de verres OD et OF ne seront proposé u'avec un choix limité et qu'avec les 4 dernières progressions, etc..) mais même en faisant comme ça, les créer à la main est impossible raisonnablement et la formule de concaténage n'est pas satisfaisante (car une formule par ligne/alternative, je vais très vite taper plus de caractères que si je le tapais directement)

Donc voilà, je suis un peu à la rue et perplexe sur la formule a utiliser dans ce cas là et je souhaiterais un coup de main pour ça.

Merci à tous.

Bonsoir tout le monde

J'ai un souci avec un code que je voudrais adapter afin de générer des onglets à partir d'une base de donnée extraite d'un fichier.

J'ai une feuille "données" qui me sert de base pour créer, et générer des feuilles issues du modèle PB XxXxX

Le code de la macro me génère bien toutes les copies en fonction de la colonne A

Mon souci, c'est que dans chaque nouvel onglet créer, j'ai besoin que les données des colonnes B, C, D et E soit en même

temps copier dans la feuille qui correspond à son numéro en F35. (ou autre mais je ne sais pas comment)

Je doit faire l'extraction des données en commençant par le bas car le nombre de lignes peu varier au maximum de 1 à 12.

Je joint un fichier avec la macro

PS EN PLLUS SI QUELQU'UN ARRIVE ME INSERER LES ESPACES DANS CETTE FORMULES

ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[5], RC[6], RC[3], RC[4])"

CA RENDRAIT MES FICHES PLUS PROPRES

D'avance je vous remercie de l'attention que vous porterez à ma demande


Je ne suis pas sur que le fichier soit passer alors au cas ou je le renvoi

encore merci de votre attention


Désolé voici le fichier je l'avais laissé en *.XLMs

18fichespb.zip (24.77 Ko)

Bonjour,

Je suis assez "novice" dans l'utilisation un peu poussé d'Excel, je travail sur le création d'un base de données Filemaker et je dois rentrer d'anciennes données stockées sous excel.

Mon problème: les données sont mal organisées sous excel:

ligneA donnéesX1(colonneA) "donnée Y1, donnée Y2, donnée y3"(colonneB)

Je voudrai trouver un outil permettant de rapidement découper les données de cette façon:

donnéeX1_________ DonnéesY1

donnéesX1_______ données Y2

donnéesX1_______données Y 3

Avec l'outil convertir, j'arrive a les séparer mais sur un même ligne et plusieurs collonne alors que j'aurais voulu plusieurs lignes sur la même colonne.

Enfin voila...

A votre bon coeur.

Merci d'avance!

Vincent

Bonjour,

Je recois un fichier qui est un extract de données et je souhaite le réorganisé dans un autre onglet.

Pour cela il faudrait que j'utilise une fonction qui soit une VLOOKUP avec plusieurs conditions.

Voici le fichier que je recois:

number simplified /NUMBER /R /ID /start date /end date /status

00041782 /00041782-X /A.12 /OWF /22.05.2011 /22.05.2011 /wwww

00041782 /00041782-Y /A /3DWF /23.05.2011 /23.05.2011 /xxx

00041782 /00041782-X /A /2DWF /25.05.2011 /25.05.2011 /yyy

00041782 /00041782-Y /B /3DWF /23.05.2011 /23.05.2011 /zzz

00041782 /00041782-X /B /2DWF /25.05.2011 /25.05.2011 /aaaaa

00041782 /00041782-Y /C /3DWF /27.05.2011 /blank /bbbb

Voici l'autre onglet où les données sont réorganisées , avec les conditions:

number simplified /R /ID /status /start date /end date /ID /status /start date /end date

00041782 /A/OWF /formula1 /formula2 /formula3 /3DWF /formula 4 /formula 5 /formula 6

Pour la formule 1:

souhaité: Prendre la valeur de la colonne G (soit le status), si number simplified=00041782 et R contient lettre A et ID=OWF

essayé: {INDEX(Extract!G:G;(MATCH(1;(A2=Extract!A:A)*(B2=Extract!C:C)*(C2=Extract!D:D);0)))}

obtenu: #REF!

Pour la formule 2:souhaité: Prendre la valeur de la colonne E (soit la date de début), si number siplified=00041482 et R contient lettre A et ID=OWF

et ainsi de suite...

J'ai regardé sur plein de sites, forums mais je n'arrive pas à obtenir le résultat voulu.

Désolé pour les tableaux mais je ne suis pas encore experte dans le forum et les copier/coller de mes tableaux ne marchent pas

S'il vous plait pourriez-vous m'aider, c'est tres important.

Merci d'avance

Bonjour,

Désolée je n'ai pas pu faire de titre explicite. Voici mon problème:

J'aimerais créer automatiquement un identifiant, un code, en entrant simplement les données.

Ce sera plus clair avec un exemple:

Si je met Maison Marne France, l'identifiant sera AFRMMAR. C'est à dire la lettre A systématiquement pour commencer, les deux première lettres du mot France, la première lettre du mot Maison et les trois première lettres du mot Marne.

Tout d'abord est-ce que c'est possible?

C'est possible? Trop simple même? Bon alors on complique les choses:

Maintenant, serait-il possible de faire une recherche dans une base de données, et, si l'identifiant existe déjà faire un message d'erreur.

Toujours avec un exemple :

Si j'ai Maison, Martinique, France l'identifiant sera aussi AFRMMAR. A ce moment, là, il serai bien de marquer un message d'erreur. Un "faux" dans une case à coté.

Voilà, personnellement mes connaissances limité en Excel me disent que c'est perdu d'avance, mon neurone n'y survivrai pas.

Merci,

Bon casse-tête!

Quelqu'un saurait-il m'aider à résoudre le problème suivant :

je cherche un moyen d'insérer une ou plusieurs lignes nouvelles dans une feuille, en y insérant automatiquement les mêmes formules que celles de la ligne supérieure, sans avoir à insérer puis copier/coller les formules de la ligne "source" ?

Merci !

Bonsoir chers tous

je voudrais exporter ma plage A1:C10 au format PDF dans un sous dossier.

Ma macro doit:

  • Créer un Dossier "Plage"
  • Créer Un Sous dossier qui portera comme nom ma cellule E1 : (Cells(1,5).value)
  • Stocker mon Fichier PDF "TRIS" dans le Sous Dossier qui porte le nom de E1 au format " mmm yyyy".
J'ai élaboré ce qui suit mais je coince.

Merci de me guider

Sub SAVE()
Dim chemin As String
Dim fichier As String
             chemin = ThisWorkbook.Path & "\Plage\" & "\" & Cells(1, 5).Value & "\"
             If Dir(chemin, vbDirectory) = "" Then MkDir chemin
             With ActiveSheet

                .PageSetup.PrintArea = "$A$1:$C$10"
             fichier = .Range("A1")
                .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             chemin & fichier, Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

          End With
End Sub
2classeur1.xlsm (18.24 Ko)

Bonjour,

Je souhaite créer une macro pour enregistrer une partie de ma feuille excel en PDF sur le bureau des utilisateurs qui utiliseront le fichier.

Pour cela, j'ai:

  • définit la zone d'impression
  • créer un bouton
  • enregistré une macro
  • affecté la macro au bouton

Cependant, la macro ne fonctionne pas...

J'ai bien compris en regardant différents postes, que le bureau est lié à l'utilisateur et donc qu'il y a un code spécifique à saisir pour que la macro fonctionne. Mais je n'y arrive pas!

Je suis sous Windows 10 entreprise et on utilise Microsoft office 365 proplus version 2002.

Voici la macro :

Sub ExportPdfClient()

'

' ExportPdfClient Macro

'

'

user = Environ("username")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\" & user & "\Desktop\" & Range("J6").Value & Range("AI6").Value & ".pdf", Quality:=xlQualityMinimum _

, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

'J6 est le nom du client dans la feuille et AI6 est la date

MsgBox "Le PDF a été gégénré sur le bureau"

End Sub

Merci d'avance pour votre aide

Léa

Recherches récentes

listboxtableau gestionnaire nomsaccessinvestissement locatifcouleur ralimpression qrcodetexte centre tableau vbamaintenance preventivetexte milieu vbavider textboxgmaocave vinscreer menu deroulantmenu deroulantmfc deux colonnesajouter colonnes plagemfc valeur differentemfc doublonmfc meme valeur colonne differenteuserform