Contenu récent par decga

Bonjour, Le code fonctionne si l'on double clic sur la cellule mais j'aimerais que la ligne se supprime lorsqu'on clic sur l'image

Bonjour Sur mon fichier excel j'ai insérer une photo dans chaque cellule de la colonne H et j'ai affecter une macro aux images J'aimerais que lorsque je clique sur l'image, la ligne dans laquelle elle est insérée soit supprimé Auriez vous la ligne de code qui permettrais de faire cela ...

Bonjour, je suis actuellement en train de crée un formulaire de gestion de dépenses Dans le fichier excel j'ai un bouton "ajouter une dépense" qui ouvre un userform qui demande le montant, la date, le type, la désignation et le destinataire de la dépense A chaque fois que le userform est validé...

J'ai un autre problème maintenant, j'aimerais copié les cellules des colonnes B et C qui sont associées aux cellules triées (celle de la colonne A)

Merci à tous, c'est top tout fonctionne;)

Merci pour le code mais entre temps j'ai réussi autrement For i = 2 To 100 If Right(Workbooks("Traction ligne UA0.xlsm").Worksheets("Position VI").Range("A" & i), 2) = "_2" Then Workbooks("Traction_V2.xlsm").Worksheets("Position VI").Range("A" & i).Value =...

Bonjour, Je n'arrive pas à adapter votre code à mon fichier Les données que je veux copié sont dans la colonne A du tableau1 Et je veux coller (après tri) dans la colonne A du tableau2

Bonjour, J'ai une liste de données du type dans un fichier : 11256_1 25663_2 56666 66226_2 52626 26526_1 Et j'aimerais faire une copie uniquement des données se terminant pas "_2 " Et dans un second temps, une fois que les données sont copié j'aimerais enlever le "_2" Est ce que cela est...

Bonjour Je travail actuellement sur un fichier dans lequel je stock des valeurs Mon but est de générer un fichier (fichier qui à une forme standard) à chaque fois que je remplis une nouvelle cellule (par exemple la cellule A2) d'une nouvelle ligne De plus j'aimerais pouvoir enregistrer...

Oui oui j'ai tester le votre et tout fonctionne mais c'est quand j'adapte au mien que ça coince Le fichier que je veux dupliquer porte ce nom "000 FICHE PRO.xlsm" Le chemin du dossier ou je veux enregistrer le fichier est C:\Users\det\Desktop\EPC\ Et je veux enregistrer le fichier sous le nom...

Je suis désolé mais le code n'incrémente pas, mais il écrase le fichier précédemment crée

Bonjour c'est pour archiver les fichiers dans un document

Je viens de trouver l'erreur il fallait que je précise le classeur, la feuille et la cellule et pas juste la cellule 'Enregistre la fiche EPM sous un nouveau nom num = Workbooks("000 Trame EPM Info 2017-10-10.xlsm").Worksheets("EPM_Info_template_FR").Range("H1") Workbooks("000 Trame EPM Info...

Le H1 est juste l'adaptation de ton code au miens, j'ai rien dans la cellule A1

Je viens d'essayer ce que tu m'a dit mais ça ne fonctionne pas, ca ne prend pas en compte la valeur de la cellule A1 et donc le nom du fichier est juste "EPM_" 'Enregistre la fiche EPM sous un nouveau nom num = Range("H1").Value Workbooks("000 Trame EPM Info 2017-10-10").SaveAs...