Modifier une macro...

bqtr

XLDnaute Accro

• 23 Août 2007

• #2

Re : Modifier une macro...

Bonsoir Christian0258,

Essaye ceci :

Code:

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

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 23 Août 2007

• #3

Re : Modifier une macro...

Re, le forum, bqtr,

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

Encore merci.
à+
Christian

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 23 Août 2007

• #4

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

 

Pièces jointes

• décomposer groupe de mots.zip

  11.3 KB · Affichages: 17
• décomposer groupe de mots.zip

  11.3 KB · Affichages: 15
• décomposer groupe de mots.zip

  11.3 KB · Affichages: 15

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 23 Août 2007

• #5

Re : Modifier une macro...

bonsoir Christian, le forum,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 24 Août 2007

• #6

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

 

Vote positif 0 Vote négatif