copie colonnes

[sev31130]

bonjour,


est il possible à partir d'une ligne comme sur le petit fichier joint
de recopier les chiffres en colonnes .
Sachant qu'il y auras toujours que 8 colonnes .
Ou si pas possible automatique me dire si possible en manuel et comment
par avance merci

cordialement

 

[Nairolf]

Re : copie colonnes

Salut,

Il y a plusieurs possibilités, dont une assez simple sans rien avoir à développer:
-Tu enregistres ta liste dans un fichier *.txt (avec bloc note par exemple)
-Tu importes les données *.txt avec le délimiteur "espace"
-et voilà, c'est fait !

 

[PMO2]

Re : copie colonnes

Bonjour,

Une piste en VBA avec le code suivant à copier dans un module standard

Sub aa()
Dim R As Range
Dim var
Dim i&
Dim j&
Dim A$
'---
On Error Resume Next
Set R = Selection
If Err <> 0 Or R.Columns.Count > 1 Then
  MsgBox "Veuillez sélectionner une plage de cellules sur une seule colonne"
  Exit Sub
End If
On Error GoTo 0
'---
var = R
For i& = 1 To UBound(var, 1)
  A$ = CStr(var(i&, 1))
  For j& = 1 To Len(A$)
    If Not IsNumeric(Mid(A$, j&, 1)) Then
      Mid(A$, j&, 1) = Space(1)
    End If
  Next j&
  var(i&, 1) = Trim(A$)
Next i&
'---
Set R = R.Offset(0, 1)
R = var
R.TextToColumns Destination:=R.Cells(1, 1), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=False
End Sub

Sélectionnez la plage des cellules concernées sur une seule colonne et lancez la macro "aa"

 

[sev31130]

Re : copie colonnes

mercii

c'est très sympa de votre part

super génial


mille merci

 

[sev31130]

Re : copie colonnes

Bonjour

une question S.V.P.
j'ai incorporé la feuille du classeur ou tu m'as gentiment fait la macro et dans ce classeur j'ai déjà environ un quinzaine de macro déjà, comment puis-je faire pour copier cette macro que tu as concocter et qui est merveilleuse ( si on avait pu y apporter un petit changement d'ailleurs ce serait merveilleux si l'on pouvait y ajouter le nom sur une colonne devant la colonne des numéros ce serait merveilleux ( exemple agence Tip 1 2 3 4 etc... deviendrait agence TIP ! 1 ! 2 ! 3 ! 4 ! etc....
merci de ta réponse