XL 2016 Renvoyer numéros sans laisser de vide

soan à dit:

Rebonjour @alka229,

ton fichier en retour. 🙂

tu as écrit : « Je souhaiterais avoir une formule dans les cellules de B16 à F16 » ; désolé, c'est peut-être possible par formule, mais pour moi, c'est bien plus facile de faire ton exo avec une macro VBA !​

fais Ctrl e ➯ travail effectué ! 😊

VB:

Option Explicit

Sub Essai()
  Dim nom$, i As Byte, j As Byte, k As Byte
  Application.ScreenUpdating = 0: [B16:F18].ClearContents
  For i = 16 To 18
    nom = Cells(i, 1): j = 2
    For k = 3 To 12
      If Cells(k, 2) = nom Then
        With Cells(i, j)
          .NumberFormat = "000": .Value = Cells(k, 1)
        End With
        j = j + 1
      End If
    Next k
  Next i
End Sub

soan

Cliquez pour agrandir...

soan à dit:

Rebonjour @alka229,

ton fichier en retour. 🙂

tu as écrit : « Je souhaiterais avoir une formule dans les cellules de B16 à F16 » ; désolé, c'est peut-être possible par formule, mais pour moi, c'est bien plus facile de faire ton exo avec une macro VBA !​

ouvre le fichier joint en fin de post ; fais Ctrl e ➯ travail effectué ! 😊

VB:

Option Explicit

Sub Essai()
  Dim nom$, i As Byte, j As Byte, k As Byte
  Application.ScreenUpdating = 0: [B16:F18].ClearContents
  For i = 16 To 18
    nom = Cells(i, 1): j = 2
    For k = 3 To 12
      If Cells(k, 2) = nom Then
        With Cells(i, j)
          .NumberFormat = "000": .Value = Cells(k, 1)
        End With
        j = j + 1
      End If
    Next k
  Next i
End Sub

soan

Cliquez pour agrandir...

mapomme à dit:

Bonsoir @alka229 🙂, @soan 😉,

Avec des formules. Voir fichier joint.

Cliquez pour agrandir...

soan à dit:

@alka229, mapomme,

essaye ce nouveau classeur, ça va t'amuser ! 😜

soan

Cliquez pour agrandir...