For Each c In .Range("F3", .Cells(.Rows.Count, 6).Cells.End(xlUp)) ?

re4 · 16 Juillet 2019

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

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

frangy · 16 Juillet 2019

Bonjour,

Essaie comme cela ...

VB:

    With Sheets("Choix")
        Set Plage = .Range("C3", .Cells(.Rows.Count, 3).End(xlUp)) ' notes
        For Each c In .Range("E3", .Cells(.Rows.Count, 5).Cells.End(xlUp)) '
            If c.Offset(, -4) = "" Then Exit For
            c.Offset(, 2) = Format(Application.Rank(c.Offset(, -2), Plage), "000") & "_" & c.Value
            [Choix!F1] = [Choix_Expos!F1] + 1
            [Choix!G1] = c.Offset(, 2).Value
        Next c
    End With

Cordialement.

re4 · 17 Juillet 2019

Bonjour
Merci beaucoup frangy, ça fonctionne
Bonne journée

For Each c In .Range("F3", .Cells(.Rows.Count, 6).Cells.End(xlUp)) ?

re4

XLDnaute Occasionnel

frangy

XLDnaute Occasionnel

re4

XLDnaute Occasionnel

Discussions similaires