Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Sub test()
Dim c As Range
Dim i As Integer
' efface les cellules de destination
Range("h9:i15").ClearContents
' alimente la variable i
i = 9
'pour chaque cellule dans c8:jusqu'a la derniere non vide
For Each c In Range("c8:c" & Range("c5000").End(xlUp).Row)
' si la valeur de la cellule = la valeur de h8
If c.Value = Range("h8").Value Then
' place en h9 la valeur de h8
Range("h" & i).Value = Range("h8").Value
'place en i9 la valeur trouvé en colonne D
Range("i" & i).Value = c.Offset(0, 1).Value
'incrémente i
i = i + 1
'fin de la condition
End If
'prochaine cellule
Next c
End Sub
J'ai pensé que tu voulais renvoyé le chiffre correspondant à ta référence.
Effectivement, il est possible de le faire par une fonction, mais dans dans l'appli il y aura des milliers de lignes et beaucoup de colonnes... plus facile à gérer par code
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.