HELP ME

[olivier]

Salut à toi qui voudras me dépanner par une macro astucieuse......

J’ai un tableau dans lequel j’ai :

dans la colonne A la suite 1,2,3,4,5,etc
dans la colonne D des valeurs pouvant prendre les valeurs (P0, P1, P2, P3 ou P4)
dans la colonne H des valeurs pouvant prendre les valeurs (G0,G1,G2,G3,G4,G5).


Je voudrais parcourir toutes les lignes de mon tableau et créer un autre tableau dans lequel j’indique :

dans la colonne M je recopie la suite 1,2,3,4,5,etc
dans la colonne N les indices de P et G correspondant.

Exemple :

Supposons que j’ai :

A D H

1 P0 G1
2 P1 G5


je veux obtenir :

M N

1 01
2 15


Merci à toi

 

[andré]

Salut Olivier,

Il est inutile de dédoubler les messages.
Rassure-toi, beaucoup d'entre nous ont lu ton premier message, et le temps que je mets à lire et à répondre à celui-ci m'aurait peut-être permis de répondre à ton premier.
Dommage pour toi.

Ândré.

 

[Tcho!]

regarde ma réponse dans ton premier post

 

[@+Thierry]

Bonjour Olivier, Tcho, André, le Forum

Bon alors cette fois-ci, Olivier il est vraiment grand temps que tu lises notre Charte car en 24 heures tu commences très mal dans ce Forum :



Car entre :

Lien supprimé où je t'ai répondu et déjà conseillé de lire notre Charte...

Lien supprimé où Tcho t'a répondu...

Et maintenant ici, je ne sais pas si tu t'en rends compte mais tu fais vraiment tout ce qu'il faut pour ne pas avoir de réponse !!!

Par ailleurs j'ai cru aussi entrevoir des mails envoyés directement dans ma BAL, hier, et là aussi je ne peux que te suggérer de rester dans le Forum et dans le même Fil de discussion...

Et quand aux sujets bidons, je t'ai déjà expliqué hier, mais bon...

Bon Appétit quand même
@+Thierry

 

[olivier]

je m'en excuse , j'ai lu la charte et compte bien m'y tenir

 

[@+Thierry]

Re: HELP ME Concaténation par VBA

Re Olivier, le Forum

Bon alors dans ce cas là ...

Sub OlivierQuiFeraEffort()
Dim Cell As Range

For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 13) = Cells(i, 1)
Cells(i, 14) = Right(Cells(i, 4), Len(Cells(i, 4)) - 1) & Right(Cells(i, 8), Len(Cells(i, 8)) - 1)
Next

End Sub


Bon Appétit
@+Thierry

 

[@+Thierry]

Ooops on lira

Sub OlivierQuiFeraEffort()
Dim i As Integer 'j'étais parti sur autre chose !! lol

Bon aller zou Déjeuner !
@+Thierry