Copier coller deux selections qui ne sont pas cote à cote

Copier coller deux selections qui ne sont pas cote à cote - VB/VBA/VBS - Programmation

Marsh Posté le 21-03-2017 à 13:57:58    

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 !!!

Reply

Marsh Posté le 21-03-2017 à 13:57:58   

Reply

Marsh Posté le 31-03-2017 à 22:06:07    

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.

Reply

Marsh Posté le 18-04-2017 à 00:06:37    

 
             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  …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed