Résultats pour "macro copiant pleine"

8'599 résultats pour cette recherche

Bonjour a tous,

j'aimerais faire une macro afin de crée une liste en copiant d'une feuille a l'autre les cellule non vide d'une feuille de donnée, et faire un autre copier coller de certain élément de cette celllule.

je vous joins le fichier pour que vous puissiez mieux comprendre merci

14requete.zip (10.37 Ko)

Bonjour à tous,

Je souhaiterai créer une macro avec un bouton d'activation sur un fichier excel qui ferait les actions suivantes :

  • Création d'un nouveau fichier excel ayant pour nom les données d'une cellule (A1 par exemple).
  • Copie en valeur (respectant la mise en forme et taille des lignes et colonnes) d'un ou plusieurs onglets (nommés de manière identique).
  • Sauvegarde du nouveau fichier sur le bureau.

Pour prendre un exemple simple avec le fichier joint ci-dessous, le bouton de macro situé dons l'onglet donnée créerai un nouveau fichier "X" contenant uniquement les onglets "Formule 1" et "Formule 2" en valeurs

ex

Avez-vous une idée de comment procéder car je suis un peu perdu.

Merci d'avance !

Bonjour,

Je tâtonne en programmation et je suis face à un problème que je n'arrive pas à résoudre, même après avoir questionné google, alors je m'adresse à vous, fervents de la programmation, pour venir en aide à la brebis égarée que je suis.

J'ai un très grand tableau de valeur auquel j'ai associé une liste directement avec la commande de excel "créer une liste", ce qui m'est très utile pour les recherches, les filtres et le tri.

J'ai créé une macro pour que, quand on double clique sur une cellule, créer une ligne en dessous de celle sélectionnée en copiant les données de la ligne de la cellule sélectionnée. Pardon, j'ai peur que ce ne soit pas très clair...

Cette macro marche en dehors de la zone de liste mais j'ai une erreur lorsque je l'applique à l'intérieur de la zone de liste. L'erreur est:

Erreur d’exécution 1004

cette opération, qui consiste à déplacer des cellules dans une liste de votre feuille de calcul, n'est pas autorisée.

Mon code est:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If MsgBox("Etes-vous certain de vouloir ajouter ce produit au stock ?", vbYesNo, "Demande de confirmation") = vbYes Then

Rows(ActiveCell.Row).Select
'Selection.Copy ---> ne fonctionne pas dans la zone de liste

ActiveCell.Offset(1).Resize(1, 1).EntireRow.Insert

MsgBox "Le produit a été ajouté au stock"

End If

End Sub

Petite question subsidiaire, comment définir des cellules de la ligne créée en dessous de celle sélectionnée dans ma macro?

Merci par avance de vous intéresser à mon problème!

Bon milieu/fin de journée,

Bonjour à tous,

Je souhaite obtenir de l'aide pour incrémenter une formule quand celle-ci est dupliquée.

Je m'explique :

En créant un Certificat de Paiement, j'ai besoin de récupérer l'avancement du mois précédent.

Donc, quand je duplique un certificat, je suis obliqué de récupérer cet avancement, manuellement jusqu’à présent.

Comment peut-on automatiser ce procéder ?

Merci d'avance.

En pièce jointe, un ficher d'exemple.

6fichier-test.xlsx (58.35 Ko)

Bonjour, si qqun pouvait m'aider ça serait très très cool car je n'arrive pas du tout à m'en sortir avec l'enregistreur de macros

Voici m'a problématique que j'illustrerai avec un doc excel pour vous montrer ce que je n'arrive pas à faire

J'ai un tableau A1:K2355 et on me demande de transposer les données G à K en lignes, le travail à la main peut me prendre 2 semaines...

Si vous pouvez m'aider, il faudrait une macro qui est capable d'insérer 4lignes entre chaque ligne et copier la ligne du dessus pour ensuite transposé les 5 valeurs de G à K. Je ne sais pas si je suis très clair je joins un fichier excel avec le avant après.

Par avance je remercie tout le monde .

7exemple.xlsx (170.09 Ko)

Bonsoir à tous

Tout d'abord je voudrai vous remercier pour l'aide que vous proposez en ligne, c'est TOPISSIME !

Je souhaiterai optimiser un tableau de suivi de stocks qui comporte beaucoup de lignes et beaucoup de conditions. Pour que mon sujet soit plus compréhensible, j'ai volontairement simplifier la pièce jointe.

Vous trouverez en pièce jointe le fichier :

Explication du fichier et de l'optimisation souhaitée:

Je souhaiterai insérer une ligne dans mon tableau (feuille: Suivi des stocks) en respectant plusieurs conditions:

- si je choisi "Machine" dans la liste déroulante (B5) et "Perceuse à colonne" dans la liste déroulante (C5), puis que je clique sur le bouton "Insérer une ligne" (D5), alors une nouvelle ligne est insérée (nouvelle ligne entre la ligne 20 et 21).

Cette nouvelle ligne doit :

  • comporter "Machine" en B21 et "Perceuse à colonne" en C21
  • être vide pour les autres cellules mais comporter les formules des cellules du dessus (H20 ; I20 ; L20 ; M20 ; P20 ; Q20 ; T20).

J'espère que ma demande est compréhensible. Si ce n'est pas le cas, je m'en excuse d'avance.

Et si quelqu'un aurait une piste, je le remercie d'avance.

Bonjour,

Je souhaite créer une nouvelle page suite à un clique sur un bouton, cette nouvelle page devra avoir le formulaire image qui se trouve dans l'onglet "Modèle"

N'étant pas doué pour les macros, j'ai essayé en enregistrant la macro cependant cela me copie le formulaire dans la première page créée à l'aide de la macro. De plus je ne sais pas si c'est possible mais je souhaiterai renommer la feuille créée par le nom de l'utilisateur ainsi que la date.

Merci pour le temps que vous accorderez à m'aider

14mise-en-stock.xlsm (107.27 Ko)

Bonsoir,

Novice en macro, j'ai réussi à développer parfois quelques macros en m'inspirant d'infos trouvées sur ce forum. Mais aujourd'hui, il me semble que ce que je demande est vachement complexe car soumis à de nombreuses conditions (si cellule non vide et selon la celulle remplie ça ne doit pas donner le même résultat.. entre autres..)

Bref, pour résumer, l'idée est que par le biais d'une fiche de réservation que je remplis, je génère automatique un contrat de réservation à envoyer tel quel au client.

Vous trouverez ci-joint mon fichier avec donc la feuille contrat de réservation qui doit se remplir en fonction des feuilles fiches de réservation, tarifs et observations.

Peut-être que ma manière d'agencer toutes les informations nécessaires à l'édition du contrat de réservation n'est pas bonne. N'hésitez pas à m'en faire part. Je suis preneuse de toutes les suggestions et encore plus d'une bonne âme qui développera THE macro et pourra ensuite me l'expliquer pas à pas pour que je puisse toujours en apprendre plus sur le langage VBA.

Dans l'attente de vos retours,

D'avance merci.

Bonjour à tous et à toutes.

Je cherche une ligne de code qui pourrait exclure une ZoneTexte de la feuille à copier.

Voici le code utilisé.

Sub Nouveau_Bon()

I = Sheets.Count

Sheets("Bon 1").Copy after:=Sheets(Sheets.Count)

ActiveSheet.Name = "Bon " & I + 1

'ActiveSheet.Select

'ZoneTexte1.Visible = False'' ne fonctionne pas

End S ub

Merci de bien vouloir jeter un œil sur ce message

Le fichier ne vous apporterait rien de plus.

Amicalement

Papy Pierrot

Bonjour à tous et à toutes.

Je cherche une ligne de code qui pourrait exclure une ZoneTexte de la feuille à copier.

Voici le code utilisé.

Sub Nouveau_Bon()

I = Sheets.Count

Sheets("Bon 1").Copy after:=Sheets(Sheets.Count)

ActiveSheet.Name = "Bon " & I + 1

'ActiveSheet.Select

'ZoneTexte1.Visible = False'' ne fonctionne pas

End Sub

Merci de bien vouloir jeter un œil sur ce message

Le f

Papy Pierrot

Bonsoir à toutes et à tous,

Comment allez-vous ?

Je n'ai pas su trouver la réponse à mon interrogation du moment : Fusionner 2 feuilles/fichiers Excel 2013 en un seul, en ajoutant les informations d'un des deux fichiers à l'autre

Explications (qui je l'espère, seront compréhensibles tellement j'ai passé de temps à regarder des lignes et des colonnes ) :

J'ai donc deux fichiers Excel (je travaille sur Excel 2013) qui représentent des données clientes (nom, adresse, etc...)

J'ai fait en sorte que les deux fichiers aient les mêmes noms de colonnes, ainsi que le même nombre de colonne.

Dans un fichier, j'ai une partie des infos, et sur l'autre, une autre partie (pourquoi faire simple).

Ce que je souhaiterais, c'est de comparer les deux infos : si par exemple, dans le premier fichier il manque le numéro de portable, et que dans le second je l'ai, le numéro soit ajouté dans le premier fichier par exemple.

Idem s'il manque des clients complets, qu'ils soient ajoutés dans le fichier final.

Comme vous pouvez vous en douter, je ne peux vous mettre les fichiers sur le site (données clientes oblige...)

Par contre, je vous joins les noms des colonnes avec leur emplacement, au cas ou...

Je suis une bille en Excel en général (même si j'aime bien concaténer des infos, et faire du tri en CSV pour faire du PowerShell au boulot, mais c'est tout....).

Je vous remercie par avance les d'jeune'z

21forum-fusion.xlsx (8.22 Ko)

Bonjour à tous.

Je fais appel à votre aide car je bloque depuis ce matin sur un problème dans ma macro.

J' avoue certains vont trouver que c' est codé avec mes pieds, mais je débute, et pour le moment c' est plus de l' assemblage de bouts de code qu' autre chose... J' essaye d' assimiler au fur et à mesure.

Dans mon cas, je souhaite que :

_ l' utilisateur réponde par "oui" ou "non" à une question

_ qu' en fonction de cela, une cellule soit copiée depuis la page "question" et collés sur la page "analyse" dans la 1ère cellule "non-vide" sous "A13"

(jusque là tout marche)

_ toujours en fonction de la réponse, une autre cellule soit copiée depuis la page "question" et collés sur la page "analyse" dans la 1ère cellule "non-vide" sous "D13"

Et là, ça ne marche pas, je comprends pas pourquoi ça fonctionne pour la 1ère et pas la seconde fois...

Merci d' avance pour vos lumières !!!

Voici mon code, avec en rouge l' endroit de l'erreur :

Sub Q2()

If MsgBox("Le client est il mineur ?", vbQuestion + vbYesNo, "Type de dossier") = vbYes Then

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("C6"))

Selection.Copy

Sheets("Analyse").Select

Cells(ActiveSheet.Cells(13, 1).End(xlDown).Row + 1, 1).Select

ActiveSheet.Paste

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("G7"))

Selection.Copy

Sheets("Analyse").Select

Cells(ActiveSheet.Cells(13, 4).End(xlDown).Row + 1, 1).Select

ActiveSheet.Paste

Call Q3

Else

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("D6"))

Selection.Copy

Sheets("Analyse").Select

Cells(ActiveSheet.Cells(13, 1).End(xlDown).Row + 1, 1).Select

ActiveSheet.Paste

Application.Goto (ActiveWorkbook.Sheets("Questions").Range("G5"))

Selection.Copy

Sheets("Analyse").Select

Cells(ActiveSheet.Cells(13, 4).End(xlDown).Row + 1, 1).Select

ActiveSheet.Paste

Call Q5

End If

End Sub

bonjour à tous

j'ai un souci avec une formule dans E4 =SI(ESTVIDE(C4);D4;"") mais en mème temps je souhaitrais que D4 se vide; merci à tous pour votre aide

Bonsoir à tous,

Je suis débutant sur Excel, du moins cela fait un moment que je ne l'ai pas utilisé.

J'aimerais mettre au point une macro qui copie les valeurs de mes 3 feuilles si la cellule A de chaque lignes avec du contenue est remplie pour m'éviter de copier des lignes vides; pour ensuite insérer mes valeurs dans mon fichier consolidation à la suite (données feuille 1 puis données feuilles 2...)

J'ai pensé à une boucle avec do While loop mais je ne maitrise pas la chose ce qui me rend le codage compliqué.

J'espère avoir était assez clair désolé par avance si ce n'est pas le cas.

Je joint mon fichier

Merci par avance

Bonne soirée

Bonjour tout le monde,

Je vous explique, je fais un stage en Afrique du Sud dans une entreprise qui fabrique des planches de surf, et mon superieur m'a demande de creer un schedule pour les planches destinees a etre repare.

J ai eu l idee de faire un schedule compose d une macro, mais je n'arrive pas a le faire seul meme apres avoir regarde d'autre topic sur le meme sujet...

Je vous joins l excel ci dessous.

L'idee serait que lorsque que l'on rempli la cellule "Quote #" une nouvelle feuille apparait avec le modele et les informations remplis dans le schedule.

J'aimerais aussi pouvoir avoir la possibilite de supprimer automatiquement la feuille lorsque je supprime la ligne correspondant.

Une derniere requete, j aimerais pouvoir classer les feuilles en fonction des "due dates", creer un ordre de priorite.....

Je vous remercie d'avance pour votre aide, je ne suis pas tres doue pour excel donc si vous pouvez detailler lorsque vous m'aidez svp...

14excel-test.xlsx (13.00 Ko)

Bonjour, je n'arrive pas à utiliser le "End(xlUp).Row" pour détecter la dernière cellule non vide d'une colonne.

J'aimerais coller une formule en S2 et T2 et la "glisser" jusqu'à la dernière ligne non vide de la colonne A. ( la deuxième formule est une fonction matricielle pour info ).

Ma question : Comment écrire le code en utilisant "End(xlUp).Row" dans le code ci-dessous ? J'ai testé plusieurs codes sans réel succès

Sub formules()

    Range("S2").Select
    ActiveCell.FormulaR1C1 = _
        "=OR(LEFT(TRIM(RC6),2)=""OA"",LEFT(TRIM(RC6),3)=""POA"")*1"
    Range("S2").Select
    Selection.AutoFill Destination:=Range("S2:S20"), Type:=xlFillDefault
    Range("S2:S20").Select
    Range("T2").Select
    Selection.FormulaArray = _
        "=IF(RC[-4]>=0,"""",SMALL(IF((R2C2:R100000C2=RC2)*(R2C19:R100000C19=1)*(R2C[-12]:R100000C8>=RC8),R2C[-12]:R100000C8),SUMPRODUCT((R2C2:RC2=RC2)*(R2C[-4]:RC16<0))))"
    Selection.AutoFill Destination:=Range("T2:T20"), Type:=xlFillDefault
    Range("T2:T19").Select
End Sub

Bonjour,

Je me permet de poster ici car je cherche, comme indiqué dans mon titre, à écrire dans une cellule vierge à la suite d'une cellule pleine. Mon code, que vous trouverez ci-joint, me permet de cliquer sur un bouton ouvrant une pop up et de rentrer une catégorie de pannes, de choisir ensuite le type de panne et lorsque je clique sur le bouton "iiike" les données sont envoyées dans deux tableaux différents. Ce que j'essaie de faire maintenant c'est que lorsque j'appuie sur ce bouton "iiike" le numéro du drone, la catégorie de panne, le type de panne, la date, ..etc se notent dans la feuille "Dossiers des Drones" sur une ligne et dans différentes colonnes pour chaque type d'infos (à la manière d'un tableau) dans le but de créer un nouveau bouton. Ce nouveau bouton, lorsqu'il est activé, ouvre une pop up et en rentrant le numéro du drone m'affiche tous les rapports de pannes qui ont étés effectués sur lui.

Maintenant le contexte expliqué, je cherche plus exactement à pouvoir créer cette liste automatiquement avec le bouton "iiike" j'ai pas mal cherché et vu que la fonction avec End(xlUp) était tout indiquée mais je n'arrive pas à la mettre en place (souvent des erreurs 438) et je me retrouve bloqué sur ca.

Du coup si quelqu'un aurait une solution à me proposer ce serait cool !

Merci d'avance pour votre aide.

Bonjour le forum, j'ai une grande liste de qui va de C10 à H2009, j'aimerai parfois voir la dernière ligne avec références, sans pour autant la sélectionner, est 'il possible de faire un scroll en cliquant sur un bouton jusqu'à la dernière cellule pleine de la colonne C ?

Merci pour votre aide

Bonjour,

Voici mon cas : j'aimerais insérer les données des cellules d'une fiche produit (quantité, prix, taille etc...) dans mon panier ( qui est sous forme d'un tableau ) sachant qu'une ligne s'ajoute dans le panier à chaque fois que je clique sur "ajouter panier" (bouton qui est sur ma fiche produit)

J'aimerais qu'à chaque fois que j'ajoute les données de ma fiche produit dans mon panier, qu'une nouvelle ligne se remplisse sans effacer la précédente. Il faut savoir que j'ai plusieurs fiches produits (un bouton ajoutez pour chaque fiche ) pour un même panier.

Voici mon code pour une fiche :

Sub Article1panier1()

rep = MsgBox("Voulez-vous sélectionner ce produit ?", vbYesNo)

If rep = vbYes Then

Sheets("Mon Panier").Range("C14") = "Article 1"

Sheets("Mon Panier").Range("D14") = Sheets("Produits").[I8]

Sheets("Produits").[I8] = [I8]

Sheets("Mon Panier").Range("E14") = Sheets("Produits").[K8]

Sheets("Produits").[K8] = [K8]

Sheets("Mon Panier").Range("F14") = Sheets("Produits").[I16]

Sheets("Produits").[I16] = [I16]

Sheets("Mon Panier").Range("G14") = Sheets("Produits").[I20]

Sheets("Produits").[I20] = [I20]

Sheets("Mon Panier").Range("H14") = Sheets("Produits").[I12]

Sheets("Produits").[I12] = [I12]

MsgBox ("Votre produit a bien été ajouté à votre panier")

Else

End If

End Sub

Merci d'avance

Bonjour,

J'ai toutes les lignes de mon tableau avec une hauteur de 15.

Je voudrais que les lignes dont les cellules de la colonne E ne sont pas vide soient à 30 de hauteur (contient un titre).

Est-ce possible ? Probablement avec une macro, mais comment la rédiger et où la positionner ?

Merci pour votre contribution

Cordialement

Fat

Recherches récentes

lundi ferieuserformgmaomariolocativemailprotectioncdblcocherdatebaie informatiquemfccopier collercuveriesuivisharepoint vbasupprimer ligne valeur presente colonne precisecombobox fichier fermeecheancier semaineregrouper donnees onglets