Modifier une macro...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide afin de modifier une macro sur deux points...

fichier ci-joint, plus simple...

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[bqtr]

Re : Modifier une macro...

Bonsoir Christian0258,

Essaye ceci :

Sub test2()
Dim cell As Range
Dim x As Byte
With Sheets("Feuil1")
  For Each cell In .Range("F2:F" & .Range("F65536").End(xlUp).Row)
      x = InStr(cell, ",")
        Select Case x
            Case Is = 0
               cell.Offset(0, 1) = cell
            Case Is <> 0
               cell.Offset(0, 1) = Left(cell, x - 1)
        End Select
  Next
End With
End Sub

Le principe:

la macro recherche la position de la première virgule, si elle ne l'a trouve pas ( Case Is = 0 ), elle copie la cellule dans la colonne G. Si elle trouve une virgule, la première donc ( Case Is <> 0 ), elle copie ce qui se trouve à gauche dans la colonne G ( = Left(cell, x - 1) ).
x te donne la position de la première virgule dans la cellule, x est un chiffre.

Bonne fin de soirée

 

[Christian0258]

Re : Modifier une macro...

Re, le forum, bqtr,

Merci, bqtr, pour ta macro qui fonctionne parfaitement.
C'est parfait.

Encore merci.
à+
Christian

 

[Christian0258]

Re : Modifier une macro...

Re, le forum, bqtr,

Peux-tu me dire comment ajouter un paramètre à ta macro...


fichier joint.

Merci beaucoup pour votre aide.
à+
Christian

 

[gbinforme]

Re : Modifier une macro...

bonsoir Christian, le forum,

tu peux rajouter cette ligne en gras, à cet emplacement :

        End Select
     [b]   If cell.Offset(0, -3) = "Coll" Then cell.Offset(0, 1) = " " & cell.Offset(0, 1)[/b]
  Next

@+

 

[Christian0258]

Re : Modifier une macro...

Bonjour à tout le forum, bqtr,gbinforme,


Merci à vous deux pour ce travail.

Impec, gbinforme, ce rajout sur la macro fonctionne parfaitement.

Saluts les artistes et merci encore.

à+
Christian