if sur vba texte & texte & nombre

[carlos]

Bonsoir

J'avance à grand pas grace à vous

NBEL.Caption = Cells(1, 2).Value & ' élèves dont ' _
& Cells(2, 2).Value & ' joueurs répartis en ' _
& Int(Cells(2, 2).Value / Cells(12, 1).Value) & ' poules de ' _
& Cells(12, 1).Value _

ICi : si Cells(2, 2).Value est un nombre entier alors afficher que le haut sinon afficher aussi la suite en bas

& ' et une poule de ' _
& Cells(2, 2).Value - (Int(Cells(2, 2).Value / Cells(12, 1).Value) * Cells(12, 1).Value) _
& ' joueur(s)'

Merci

 

[myDearFriend!]

re- carlos,

Tu peux essayer :

      NBEL.Caption = Cells(1, 2).Value & ' élèves dont ' _
            & Cells(2, 2).Value & ' joueurs répartis en ' _
            & Int(Cells(2, 2).Value / Cells(12, 1).Value) & ' poules de ' _
            & Cells(12, 1).Value _
            & IIf(Cells(2, 2).Value <> Int(Cells(2, 2).Value), ' et une poule de ' _
            & Cells(2, 2).Value - (Int(Cells(2, 2).Value / Cells(12, 1).Value) * Cells(12, 1).Value) _
            & ' joueur(s)', '')

autrement dit :

With Cells(2, 2)
      NBEL.Caption = Cells(1, 2).Value & ' élèves dont ' _
            & .Value & ' joueurs répartis en ' _
            & .Value \ Cells(12, 1).Value & ' poules de ' _
            & Cells(12, 1).Value _
            & IIf(.Value <> Int(.Value), ' et une poule de ' _
            & .Value - (.Value \ Cells(12, 1).Value * Cells(12, 1).Value) _
            & ' joueur(s)', '')
End With

Cordialement.

 

[carlos]

bonsoir

Petit correctif :Au lieu de lire

ICi : si Cells(2, 2).Value est un nombre entier alors afficher que le haut sinon afficher aussi lasuite en bas

il faut lire :

ICi : si Int(Cells(2, 2).Value / Cells(12, 1).Value) est un nombre entier alors afficher que le haut sinon afficher aussi lasuite en bas

Désolé pour mon imprecision

carlos

 

[carlos]

Bonsoir mydearfriend

je prend de suite ton modele

Merci

 

[carlos]

bonsoir

C'est ok , c'est reussi

Merci encore