if sur vba texte & texte & nombre

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.

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

Bonsoir mydearfriend

je prend de suite ton modele

Merci

bonsoir

C'est ok , c'est reussi

Merci encore