Résultats pour "copier"

3'538 résultats pour cette recherche

Bonjour, je suis novice en vba

je dois copier la valeur de C1 et la coller en D1 et E1 en effacent C1

j'ai longuement regardé dans ce forum mais rien trouvé ?

D'avance merci

Bonjour à tous,

Pour gagner du temps dans ma pratique professionnelle j'aimerais réaliser une macro qui récupère des informations d'un fichier Excel pour les coller dans un modèle Word. J'ai donc découvert depuis une semaine les joies du code VBA et eu plusieurs fois au cours de celle-ci envie de balancer mon ordi par la fenêtre

Toutefois grâce à de super forums comme celui-ci j'ai compris le B.A-BA du codage VBA et un jour, oh miracle!, trouvé dans un forum un code déjà tout prêt pour ce que je voulais faire . Je teste, ça fonctionne, j'enregistre, je suis heureuse.

Malheureusement ce matin lorsque je veux enfin utiliser ma macro et ça ne fonctionne plus . Le message d'erreur: "Erreur 13 incompatibilité de type" s'affiche. J'ai beau m'être creusé la tête toute la journée et avoir fouillé de nombreux forum je reste sans savoir d'où viens le problème. Du coup si une âme charitable peut m'éclairer ce serait vraiment sympa.

Voici le code en question:

Option Explicit

Sub Excel_WordBmk()

Dim AppWord As Object

Dim DocWord As Object

Dim Wkb As Workbook

Dim NomCell As Excel.Name

Dim sChemin As String

Set Wkb = ThisWorkbook

sChemin = ThisWorkbook.Path & "\Livret_de_synthèse.docx"

On Error GoTo Erreurs

Set AppWord = CreateObject("Word.Application")

Set DocWord = AppWord.Documents.Add(sChemin)

For Each NomCell In Wkb.Names

If DocWord.Bookmarks.Exists(NomCell.Name) Then

DocWord.Bookmarks(NomCell.Name).Range.Text = Feuil1.Range(NomCell.Value)

End If

Next NomCell

DocWord.SaveAs Filename:=ThisWorkbook.Path & "\Livret_de_synthèse.docx"

DocWord.Close

Retour:

If Not AppWord Is Nothing Then AppWord.Quit False

Set AppWord = Nothing

Exit Sub

Erreurs:

MsgBox Err.Number & vbCrLf & Err.Description

Resume Retour

End Sub

J'ai adapté le code de façon à ce qu'il ouvre le fichier word classé dans le même dossier, attribué des noms aux cases que je souhaite copier sur excel et donner les mêmes noms a des signets sur word pour que la macro "sache" où coller les valeurs des cases.

Je ne sais pas si je suis clair mais j'espère que vous pourrez m'aider

Bonjour,

Voilà ma question, est-il possible de créer une macro qui copierait plusieurs celulles défini dans un classeur pour les copier dans un autre classeur, à condition que le numéro attribuer soit différant de celui qui précède ?

Exemple : copier les celulle E, F, N, O, P, R, T, U, V, AE du classeur "engagement" dans un autre classeur nommé "Délibé".

Merci d'avance.

Bonjour le forum !

Je cherche à récupérer des données de deux fichiers différents A et B (pour l'exemple il n'y en a que 2 en réalité il y en a 13).

J'arrive à copier les données de A mais je n'arrive pas à copier celles de B juste en dessous de la dernière ligne de cellules non vides.

Les données du fichier B se copient ) la ligne 13083.

Voici mon code :

Sub Bouton1_Cliquer()

Dim f As Long
Dim PremiereLigne As String

'Traitemnt du classeur A
    Workbooks.Open "G:\ACE\essais macro\A.xlsx" 
    PremiereLigne = ActiveSheet.UsedRange.Rows.Count + 1
    Workbooks("A.xlsx").Sheets("A").Range("B4:J" & PremiereLigne).Copy 
    Workbooks("ARCHIVES-BILAN.xlsm").Activate 
    Workbooks("ARCHIVES-BILAN.xlsm").Sheets("RECAP").Range("B3").Select 
    Workbooks("ARCHIVES-BILAN.xlsm").Sheets("RECAP").Paste 
    Workbooks("A.xlsx").Close

'Traitement du classeur B
    Workbooks.Open "G:\ACE\essais macro\B.xlsx" 
    PremiereLigne = ActiveSheet.UsedRange.Rows.Count + 1
    Workbooks("B.xlsx").Sheets("B").Range("B4:J" & PremiereLigne).Copy 
    Workbooks("ARCHIVES-BILAN.xlsm").Activate 
    Workbooks("ARCHIVES-BILAN.xlsm").Sheets("RECAP").Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
    Workbooks("ARCHIVES-BILAN.xlsm").Sheets("RECAP").Paste 'Effectue le collage
    Workbooks("B.xlsx").Close 

End Sub

Pouvez vous m'aider SVP ?

Merci d'avance

Bonjour,

étant débutant en vba je bloque sur un point j'arrive a copier coller si retour d'un mot clés, mais je bloque sur ma boucle(si sinon).

SI

Sub EcfiltreAGM()

Dim strSearch

Dim rg As Range, rgF As Range

Dim i As Integer

Application.ScreenUpdating = False

strSearch = ("AGM")

'On défini ici la plage de cellules contenant les données

' comme étant la région autour de la cellule 1 (A1)

Set rg = Sheets("Import l1").Cells(1).CurrentRegion

'On boucle sur chaque ligne de la plate

For i = 1 To rg.Rows.Count

'On cherche dans cette ligne la valeur à trouver

Set rgF = rg.Rows(i).Find(strSearch, , xlValues, xlPart)

'Si on la trouve alors rgF n'est pas vide, on copie dans notre onglet Résultats

If Not rgF Is Nothing Then

rg.Rows(i).Copy Sheets("Encours AGM").Range("A60000").End(xlUp).Offset(1, 0)

Set rgF = Nothing

End If

Next i

Application.ScreenUpdating = True

SInon

Copier meme feuille mes vers cellule g.

End Sub

Merci d'avance car je suis bloquer x)

Bonjour toutes et tous

veuillez passez une agréable semaine

voilà, j'ai du mal à transférer la valeur d'une cellule dans une forme shape

objectif : copier le contenu d'une cellule dans une forme shape en live sans l'a modifié comportant qu'1 seule lettre

si quelqu'un passe par là et puisse me venir en aide se serait super sympa (cela ne presse pas, prenez votre temps)

merci d'avance, ci-joint le fichier

cordialement,

André

Bonjour,

Je vous écris aujourd'hui car j'ai quelques problèmes avec un macro VBA,

Je m'explique j'aurais aimé compléter un tableau avec une sorte de présélection. Toutes les informations nécessaires se situent sur une feuille et les information à compléter sur une autre, le macro devrait simplement en reconnaissant les noms compléter l'ensemble de la ligne correspondante.

Si on prend dans mon fichier la feuil2 c'est celle qui contient les informations, et la Feuil1 serait la feuille à compléter à partir de la feuille 2. Seul le nom est renseigné & donc il faudrait que ca complète le reste.

Sub Test()

Dim nomdate As String

Sheets("Feuil1").Select

Range("C2", Range("C2").End(xlDown)).Select

Dim Cel As Range

For Each Cel In Range("C2", Range("C2").End(xlDown))

Selection.Copy

Sheets("Feuil2").Select

Set resultat = ActiveSheet.Columns(3).Cells.Find(What:=Cel.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _

False, SearchFormat:=False)

If resultat Is Nothing Then

MsgBox " non trouvé"

Else

resultat.Select

End If

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlToRight)).Select

Application.CutCopyMode = False

Selection.Copy

Application.CutCopyMode = False

Selection.Copy

Sheets("Feuil1").Select

ActiveSheet.Paste

Next Cel

End Sub

Le code est faux et me met une erreur d'excution'13': Incompatibilité de type.

Merci d'avance pour votre aide,

Cordialement,

LaSouried

39test.xlsx (10.42 Ko)
46test.xlsx (10.42 Ko)

Bonjour

je voudrais mettre en place une macro en gros des que je clic sur la case ou un bouton validation en R3 que la ligne de G3 a N3 se copier et SE colle sur le tableau en dessous a la suite donc si il y a de place sur la ligne elle se colle ou alors elle se colle en dessous et ainsi de suite. Le tableau comprendra beaucoup de ligne a la fin. je vous joins le fichier.

merci bien

31book2.xlsx (24.12 Ko)

Bonjour,

Après différentes recherches sur les autre sujets du forum je ne trouve pas de réponse appropriée.

Voila je souhaite copier une cellule de l'onglet 1 dans une cellule de l'onglet 2. Pour cela, j'ai fais:

Sheets("1").Cells(1,1).Value = Sheets("2").Cells(3,4).Value

Sauf que je voudrais également copier la couleur de mon texte mais attention sans copier le format de la cellule.

Je ne veux récupérer ni la bordure de la cellule, ni sa couleur ... Je veux juste récupérer la couleur du texte à l'intérieur de la cellule.

Je bloque complètement la dessus. Si quelqu'un a une piste je le remercie grandement.

bonjour

je sais pas comment bien décrire mon problème

voila j'ai un soucis après 3H de recherche j'aimerai savoir comment je peux faire pour que ma date saisies en B6 se retrouve en A6, et sans passer par des copier coller, que cela se face automatiquement, le tableau original se déroule sur 5 ans,

j'ai penser a une formule type concaténer, au début mais très compliqué a mettre en place avec des dates.

dans le fichier joint vous trouverez un exemple de mon tableau, il n'y aura que 2 date par ligne ( date de début,date de fin)

donc je voudrais savoir si un de vous pourrez me renseigner

cordialement

Alexis

60test.xlsx (10.00 Ko)

Bonjour,

Je dois pouvoir entrer le nom adherants grace a une formule et non en "copier-coller".

Les noms adherants sont disposes en B2-B8 et ils doivent etre reporte en B12-B16.

Il doit certainement avoir une manipulation avec la colonne A mais je ne sais trouver quoi.

J'ai recherche sur Internet et votre forum mais je ne trouve pas.

Je remercie les volontaires d'avoir regarde mon message.

Le fichier correspondant "qte ble" est joint ci dessous.

Cordialement,

Photosyntese

Bonjour,

J'ai vu que le sujet a été abordé plusieurs fois mais je suis nouvelle je m'y connais pas du tout en macro et j'ai vu que c'était ma seule solution.

En effet, j'ai un fichier comportant 4 onglets que je dois actualiser à chaque fois et les copier dans le dernier onglet RECAP. je dispose aussi d'onglets cachés dont je n'ai pas besoin pour ma RECAP.

est-il possible d'avoir une macro afin de copier les 4 onglets l'un sous l'autre dans l'onglet recap et qui s'actualise à chaque fois je fais une modification dans les 4 premiers onglets (les onglets contiennent des tableaux, TCD et graphe)?

Voici mon fichier.

je vous remercie d'avance.

Bonjour à tous,

Après plusieurs recherches sur internet, je n'arrive pas à résoudre ma problématique.

Je cherche à créer une macro qui me permet les choses suivantes : Quand je sélectionne un nom dans ma colonne R "auditeur", je souhaite que la ligne soit copier/coller en partie dans l'onglet de la personne sélectionnée.

Exemple :

1) Dans ma colonne R, ligne 3, je sélectionne l'auditeur "Elise"

2) La sélection entraîne automatiquement (ou après actualisation de l'onglet) la fonction suivante 3)

3) Les informations des colonnes A/B/C/D/E/F/M/N/O/P/Q de la ligne 3 sont copiées dans l'onglet "Elise"

4) De même pour les autres lignes, si je sélectionne un autre nom dans la colonne R "auditeur" je souhaite que les mises à jour se fassent dans les onglets appropriés.

Je ne souhaite pas que les lignes du fichier source soient effacées après collage.

Je vous remercie énormément pour vos conseils et votre aide

Bonne journée à tous !

Bonsoirs Chers tous

Je voudrais par macro copier une Feuille de mon classeur dans un nouveau classeur en conservant seulement les valeurs et la mise en forme.

Merci

Bonjour à toutes et tous,

Je reviens à la charge pour améliorer un autre process qui est encore une fois trop compliqué à coder pour moi. Encore merci pour l'apport d'aide précédent!

Ci-joint le fichier excel que je vais détailler.

1/ Colonne A à M se trouvent les valeurs sources que j'entre moi-même.

2/ Colonnes P à CU se trouvent 6 tableaux dit "de calculs", qui piochent dans les valeurs sources pour faire un calcul simple. La seule différence dans ces 6 tableaux résident dans l'une des variable, le "volume" en rouge et en gras au dessus de chaque tableau. Nous avons donc 6 volumes de 20 à 200 pour 6 tableaux.

Voici ce que je réalise manuellement:
- Je choisis une valeur issue de l'un des 6 tableaux de calculs. Elle doit être supérieure ou égale à 3, et inférieur ou égale à 13. Si plusieurs valeurs correspondent à ce critère, je choisis préférentiellement celle des tableaux selon l'ordre suivant: 55, 35, 20, 100, 150, 200.
- Une fois choisie, je copie colle cette valeur dans le tableau "ADN" (colonne CW à DI).
- Enfin, je réalise un calcul sur le tableau "EAU" se trouvant en dessous du tableau ADN. Je prends l'exemple de la colonne "A1" (CX6). J'ai choisi la valeur 3.79 en provenance du tableau de calcul associé au volume 55. Je vais donc, dans la case "A1" (CX16) du tableau "EAU" faire la différence entre le volume 55 et 3.79. Evidemment, la volume change selon d'où vient la valeur choisie initialement.

Autre détail:

Lorsqu'aucunes valeurs ne correspond aux critères dans les 6 tableaux de calculs, on peut laisser les cases des tableaux de destination ADN et EAU vides. Le correctif se fera manuellement. :)

En espérant avoir été assez clair, je vous remercie grandement pour toute l'aide apportée. :)
Je n'oublierais pas de partager une vidéo du robot que ces fichiers sont censés alimenter!

Romain.

Bonjour,

Chaque mois je reçois des fichiers de certains pays et je dois copier-coller certaines case dans un fichier Excel ”sommaire" qui regroupe tous ces fichiers, savez-vous si c'est possible de copier automatiquement les données du fichier "Espagne" vers l'onglet "Espagne" du sommaire, sachant que le nom de l'onglet est également en case B2 et il est également dans le titre du fichier Excel.

La disposition est presque la même : je dois copier la case b2 par exemple vers la case b2 du fichier sommaire sauf pour la colonne I qui se colle en colonne K... Voir ci joint l'exemple, je ne sais pas si je suis assez clair, n'hésitez pas à me poser des questions.

2xxx-espagne.xlsx (10.75 Ko)
3sommaire.xlsx (13.87 Ko)

Merci pour votre aide !!

Ambou

Bonjour à tous,

voilà, je vous explique mon pb.

J'ai une userform qui me sert à copier une ligne un certain nombre de fois en fonction d'une valeur inscrite dans une textbox.

Ma textbox est nommée = txtboxNbOfCopy

donc en résumé, si dans txtboxNbOfCopy, j'ai 45, je voudrais que le code me permette de copier 45 fois la ligne active (petite précision, le nombre maxi est de 50 lignes à copier), et les colle en fin de mon tableau.

Voilà, je vous remercie par avance pour votre aide, car là, je suis parti à faire 50 fois ...

If txtboxNbOfCopy.Value = 1 Then
ActiveSheet.Paste
End If

If txtboxNbOfCopy.Value = 2 Then
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If

et c'est super long, et c'est super pas la meilleur solution.

Merci par avance pour votre aide, car je suis pas du tout à l'aise avec les boucles ... donc si vous pouviez m'expliquer ligne par ligne à quoi ça correspond, ça serait top !

Bon courage et bonne vacances pour les veinards

Laurent

Bonjour,

Je travaille sur un script Python fonctionnant avec Excel. J'aurais aimé le faire en Python mais impossible de récupérer le template d'un onglet et de l'afficher sur d'autres onglets.

J'imagine que cette manipulation est plus adaptée en VBA, mais connaissant très peu ce langage, je ne vois pas comment copier une partie des cellules d'un onglet exemple ['"A1":"AH3"] d'un onglet nommé "Test" par exemple vers d'autres onglets.

Merci pour votre aide.

Bonjour,

Je suis bloquée sur une manip malgré pleins de tentatives différentes en m'aidant des réponses sur les forums, c'est tout bête mais je n'y arrive pas.

Chaque semaine, j'envoie un fichier par mail de l'avancement des contrôles des équipes (quels contrôles ont bien été fait ou non) : comme l'extraction que je fais change toutes semaines (donc les noms des fichiers aussi), j'ai dis à ma macro de générer un template de mon document final pour copier/coller mon tableau dedans (il part de extract 27 07 2020 vers Statut d'avancement des évaluations à aujourd'hui)

Je veux automatiser cette procédure et j'ai réussi tout le reste sauf cette fameuse partie du copier/coller : j'ai essayé de copier/coller la feuille entière (sans succès), puis juste le tableau à l'intérieur de la feuille (sans succès aussi), à chaque fois j'ai la même erreur : l'indice n'appartient pas à la sélection.

Ma macro bloquante (la dernière des macros) est celle-ci :

Sub Macro5()
'Ajout des couleurs à la colonne Priorité'
Dim cellule As Range
Dim n As Integer

Range("A1").Select
n = Range("A1", Selection.End(xlDown)).Cells.Count
Range("A1:A" & n).Select

For Each cellule In Selection
If cellule.Value = "P1" Then
cellule.Interior.ColorIndex = 3
cellule.HorizontalAlignment = xlCenter

ElseIf cellule.Value = "P2" Then
cellule.Interior.ColorIndex = 44
cellule.HorizontalAlignment = xlCenter

ElseIf cellule.Value = "P3" Then
cellule.Interior.ColorIndex = 43
cellule.HorizontalAlignment = xlCenter

Else: cellule.HorizontalAlignment = xlCenter

End If
Next

Range("A2:I2", Range("A65000").End(xlUp)).Copy _
Destination:=Workbooks("Statut d'avancement des évaluations à aujourd'hui.xlsx").Worksheets("export").Range("A2")


End Sub

Ma dernière tentative de copier/coller sont les deux dernières lignes (celles qui bloquent).

Si quelqu'un peut m'aider, merci

Bonjour,

J'ai un fichier Excel avec des mises en forme conditionnelles et je voudrais pouvoir sélectionner des lignes, copier la sélection et insérer les cellules copiés SANS copier les mises en forme conditionnelles. Pour l'instant, cela duplique les mises en forme et je me retrouve très vite avec un fichier final ingérable car duplication des mises en forme...

SI quelqu'un pouvait avoir une idée...

Merci d'avance et bonne journée !

Recherches récentes

copypoutreequiv conditionexecuter macropierrep56bordures commentairefacturationdeviscreation devissuivi demandesfacture vbatri imagesdonnees espacees volontairementcarburantconvertir devisfacturelistremplissage couleurremplissage ligne week endregression lineaire multiple