Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
477 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copier coller deux selections qui ne sont pas cote à cote

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Copier coller deux selections qui ne sont pas cote à cote

n°2298041
nico92400
Posté le 21-03-2017 à 13:57:58  profilanswer
 

Bonjour à tous,
 
Je suis nouveau sur ce forum et faut dire qu'il m'a déjà bien aidé... Merci à tous.
 
Cependant là je n'arrive pas à trouver de réponse à mon problème...
 
Je m'explique.
 
Je voudrais faire un copier coller de deux ranges qui sont en colonne A et C dans word. Pas de soucis avec les colonne A et B puisqu'elles sont cote à cote.
Lorsque je colle ma sélection dans word J'ai bien la colonne A, la C mais aussi la B qui se glisse entre les deux...
 
Voici mon code :
 
Private Sub CommandButton1_Click()
 
Dim WordObj As Object
Dim varDoc As Object
Dim choixhuile As String
 
choixhuile = choixhuiles.Value 'nom de ma textbox me permet de choisir les colonnes a selectionner
 
On Error Resume Next
Set WordObj = CreateObject("Word.Application.8" )
'Pour afficher Word
WordObj.Visible = True
'Ajoute un document
WordObj.Documents.Add
 
 
If choixhuile = "Colza" Then 'Colza etant la colonne B
 
With WordObj.Selection
.TypeText Format(Date, "yyyy mm dd" ) 'ecriture dans word du style "2017 03 21 Colza Cotation bidon "
.TypeText Text:=" " & Range("B3" ).Value & " Cotation bidon "
.TypeParagraph
End With
 
Sheets("BIDON" ).Range("A3:A19,B3:B19" ).Copy
WordObj.Selection.Paste 'recopie dans le document Word
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordObj = Nothing
 
ElseIf choixhuile = "Arachide" Then
 
With WordObj.Selection
.TypeText Format(Date, "yyyy mm dd" )
.TypeText Text:=" " & Range("C3" ).Value & " Cotation bidon "
.TypeParagraph
End With
 
Sheets("BIDON" ).Range("A3:A19,C3:C19" ).Copy
WordObj.Selection.Paste 'recopie dans le document Word
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordObj = Nothing
 
End If
 
End Sub
 
 
Merci a tout le monde qui peut répondre à cela !!!

mood
Publicité
Posté le 21-03-2017 à 13:57:58  profilanswer
 

n°2298533
maxime3131​0
Posté le 31-03-2017 à 22:06:07  profilanswer
 

Salut,
 
Je sais pas ce qu'il se passe pdt ton copier/coller mais pour y remédier tu peux d'abord réarranger tes colonnes sous excel et ensuite faire ton copier coller.

n°2299279
Marc L
Posté le 18-04-2017 à 00:06:37  profilanswer
 

 
             Bonjour.
 

nico92400 a écrit :

Je voudrais faire un copier coller de deux ranges qui sont en colonne A et C


             Dans ce cas juste via le B-A-BA d'Excel, à savoir la fonction de feuille de calculs  INDEX  …
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copier coller deux selections qui ne sont pas cote à cote

 

Sujets relatifs
VBA-excel Copier-Coller après InputBoxvba-copier des colonnes d'un fichier xls vers un autre fichier xls
[Batch] Copier uniquement certains sous dossiersFonction couper-coller VBA
Copier un fichier en supprimant des lignescopier des cellules excel et les ajouter au corps de mail en image
Macro copier coller suivant la valeur d'une cellule[vbs] recup user name pr copier un fichier sur le bureau
Plus de sujets relatifs à : Copier coller deux selections qui ne sont pas cote à cote



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR