XL 2016 Renvoyer numéros sans laisser de vide

[alka229]

Bonjour,
j'ai un tableau qui contient:
de A3 à A12 des numéros et du B3:B12 des noms ((3 noms)
Un autre tableau contient de A16 à A18 les 3 noms.
Je souhaiterais avoir une formule dans les cellules de B16 à F16
qui me renvoie les numéros correspondant au nom dans la cellule A16, sans laisser de vide (B16:F16)
Quelqu'un pourrait t-il m'aider?

 

[soan]

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é !

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

 

[alka229]

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é !

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

Merci Soan,
... moi je suis un vrai bleu avec les Macro VBA !!
Je suis preneur s'il existe une formule aussi

 

[soan]

@alka229

ah, j'ai modifié mon post précédent car je croyais que tu n'avais pas vu mon fichier ! pour une solution par formule, je ne pourrais pas t'aider ; mais surveille les futures réponses : peut-être qu'un autre intervenant pourra t'apporter cette solution ? bonne chance ! ​

soan

 

[alka229]

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é !

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

Soan, désolé je reviens encore vers toi.
j'ai téléchargé le fichier mais je ne vois pas comment ça fonctionne.
Mes cellules à remplir sont toujours vides.

 

[soan]

??? il suffit d'appuyer sur les 2 touches Ctrl e ! la touche Contrôle dont je parle est celle qui est à gauche de la touche Windows et sous la touche Maj (regarde à gauche de ton clavier).​

soan

 

[mapomme]

Bonsoir @alka229 , @soan ,

Avec des formules. Voir fichier joint.

 

[alka229]

Bonsoir @alka229 , @soan ,

Avec des formules. Voir fichier joint.

Salut Mapomme,
Super merci.

 

[soan]

@alka229, mapomme,

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

soan

 

[alka229]

@alka229, mapomme,

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

soan

Ah oui, c'est plutôt pratique! merci