Regrouper valeurs colonnes en ligne

pierreg · 31 Juillet 2013

Bonjour à tous,

J'espère que tout le monde n'est pas en vacances!

J'aimerai bien trouver une solution à mon problème.

J'ai des valeurs à regrouper dans des colonnes, je souhaiterais les mettre sur la même ligne.

Exemple joint:
En feuille 1 mes valeurs.
En feuille 2 mon résultat escompté (2 possibilités).

Merci d'avance.

titiborregan5 · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Bonjour Pierre, le forum,

regarde la PJ et dis-moi si ça te convient!

Il existe différentes méthodes pour traiter ton cas...
A+
tibo

DoubleZero · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Bonjour, pierreg, le Forum,

Peut-être avec ce code :

Code:

Option Explicit
Sub Valeurs_aligner()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 1 To Range("A65536").End(xlUp).Row
        If IsNumeric(Range("A" & i)) Then Range("A" & i).Cut Destination:=Range("A" & i).Offset(, 2)
    Next
    Columns("A:C").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    Application.ScreenUpdating = True
End Sub

A bientôt

P. S. : Bonjour, titiborregan5

pierreg · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Bonjour titiborregan5,

Merci bien pour ta réponse.
Après essai, malheureusement j'ai trop d'erreur. Je n'ai pas précisé que j'ai aussi des valeurs qui n'ont aucunes correspondances possibles, certains noms sont seuls et n'ont pas de numéros ou de date, ce qui complique un peu. J'ai pas mal de valeurs à traiter.

Y a t-il moyen d'avoir une formule plutôt qu'une macro?

Je pensais peut être dans un premier temps une fonction pour éliminer les lignes vides comme le fait la macro puis dans un second temps une formule permettant d'aligner les 3 valeurs sur la même ligne en prenant en compte le fait que certaines valeurs sont seules.

J'ai aussi moyen de rajouter un préfixe aux noms de façon à pouvoir mieux identifier.
Exemple:
dans "Marie-Pierre" je met devant "nom:Marie-Pierre" de cette façon peut être qu'il est plus facile de rechercher "nom:" et d'associer tout ce qu'il y a en dessous sur une ligne et ainsi de suite jusqu'au prochain nom.

titiborregan5 · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Sans fichier, dur d'imaginer qqch...

PS: Salut 00

pierreg · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Bonjour DoubleZero,

Merci à toi,
je viens de tester mais j'ai un décalage, mes valeurs se regroupent sur 2 colonnes à la suite.
Le résultat est faussé.

pierreg · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

A titiborregan5,

Oui désolé, ci joint le fichier.
Peut être que l'ajout du préfixe "nom:" permet une recherche et un tri plus facile.

DoubleZero · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Re-bonjour,

pierreg à dit:
...Je n'ai pas précisé que j'ai aussi des valeurs qui n'ont aucunes correspondances possibles, certains noms sont seuls et n'ont pas de numéros ou de date, ce qui complique un peu...

Cela "complique un peu" beaucoup, très, trop, pour moi ...

Bon courage et à bientôt

pierreg · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Re DoubleZero,

Ok pas de problème, merci d'avoir pris la peine de répondre

pierreg · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

J'ai simplifié les choses, peut être qu'une recherche V ferait l'affaire.

Plus de titre, il faut juste chercher le mot "nom:" et y mettre en ligne tout ce qu'il y a en dessous.

Voir exemple
Résultat en feuille 2

titiborregan5 · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Re,
essaie avec ce code et dis-moi si ça ne marche ou pas!

Code:

Sub ligne()
With Sheets(1)
For i = 1 To .Range("a65000").End(xlUp).Row
If Left(.Cells(i, 1).Value, 4) = "nom:" Then
Sheets(3).Range("a65000").End(xlUp).Offset(1, 0).Value = .Cells(i, 1).Value
Sheets(3).Range("a65000").End(xlUp).Offset(0, 1).Value = .Cells(i, 1).Offset(1, 1).Value
Sheets(3).Range("a65000").End(xlUp).Offset(0, 2).Value = .Cells(i, 1).Offset(2, 0).Value
End If
Next

End With

End Sub

pierreg · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Re titiborregan5,

Merci pour ta réponse, je viens d'essayer mais j'ai une erreur:
impossible d'effectuer l'opération requise.

titiborregan5 · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

ta liste à traiter est bien en feuille 1? tu as une feuille 3?

pierreg · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Oui la liste est bien en feuille 1.
Pourrais tu mettre le fichier en exemple avec la macro? peut être qu'il y a un problème de mon côté.
Merci

Monique · 31 Juillet 2013

Re : Regrouper valeurs colonnes en ligne

Bonjour,

Par formule
Formule matricielle, à valider par ctrl, maj et entrée

(si tes données sont dans le désordre, ça ne marche pas...)

Regrouper valeurs colonnes en ligne

pierreg

XLDnaute Occasionnel

Pièces jointes

titiborregan5

XLDnaute Accro

Pièces jointes

DoubleZero

XLDnaute Barbatruc

pierreg

XLDnaute Occasionnel

titiborregan5

XLDnaute Accro

pierreg

XLDnaute Occasionnel

pierreg

XLDnaute Occasionnel

Pièces jointes

DoubleZero

XLDnaute Barbatruc

pierreg

XLDnaute Occasionnel

pierreg

XLDnaute Occasionnel

Pièces jointes

titiborregan5

XLDnaute Accro

pierreg

XLDnaute Occasionnel

titiborregan5

XLDnaute Accro

pierreg

XLDnaute Occasionnel

Monique

Nous a quitté

Pièces jointes

Discussions similaires