Bonjour,
Ma connaissance est limité... ,-)
Le code ci-dessous fonctionne bien et j’obtiens en colonne G la syntaxe suivant pour exemple : 20_nom si le 20 est en cellule C3 et si le nom est en cellule F3
Ca se complique si je veux le nom en cellule E3, (je remplace le F3 par E3), ça ne marche pas, je suppose qu'il y a autre chose à modifier.
Merci pour votre aide
Ma connaissance est limité... ,-)
Le code ci-dessous fonctionne bien et j’obtiens en colonne G la syntaxe suivant pour exemple : 20_nom si le 20 est en cellule C3 et si le nom est en cellule F3
Ca se complique si je veux le nom en cellule E3, (je remplace le F3 par E3), ça ne marche pas, je suppose qu'il y a autre chose à modifier.
Merci pour votre aide
VB:
With Sheets("Choix")
Set Plage = .Range("C3", .Cells(.Rows.Count, 3).End(xlUp)) ' notes
For Each c In .Range("F3", .Cells(.Rows.Count, 6).Cells.End(xlUp)) '
If c.Offset(, -5) = "" Then Exit For
c.Offset(, 1) = Format(Application.Rank(c.Offset(, -3), Plage), "000") & "_" & _
c.Value
[Choix!F1] = [Choix_Expos!F1] + 1 m
[Choix!G1] = c.Offset(, 1).Value
Next c