Problème recupération tableau

[bsh54]

Bonjour tout le monde,



Voici mon problème, j'ai un numéro de véhicule dans la cellule B1, et selon le numéro present dans cette cellule je veux récupérer qu'une partie du tableau pour la copier dans une autre feuille.

Un exemple, ici le numéro de véhicule est le numéro 1. Dans le tableau je veux récupérer toute les données en rapport avec ce véhicule donc dans ce cas là je veux récuperer D7:AS11 par exemple.

Dans le cas où ce serait le véhicule 2, je voudrais récupérer la plage: D12:AS16

Et ainsi de suite..

J'ai pensé à créer un programme VBA avec une ligne du style " Range("C" & (n * 5 + 7)🙁"CE" & (n * 5 + 7))).Select"

Mais ceci ne fonctionne pas

Merci d'avance !

 

[camarchepas]

Re : Problème recupération tableau

Bonjour et bienvenue sur XLD ,

une solution par recherche en tenaille

Dommage , avec un fichier au lieu d'une copie écran , j'aurais pu intégrer le code et le valider .

Mais si n est bien le véhicule cherché et B la colonne contenant ce numéro cela devrait le faire

  Set Trouve =Range("B:B").Find(n, lookat:=xlWhole)
  Set Repere =Range("B:B").Find(n, SearchDirection:=xlPrevious, lookat:=xlWhole)
  Range("C" &  trouve.row  & ":CE" & repere.row).Select

 

[gosselien]

Re : Problème recupération tableau

Bonjour le forum et "camarchepas",

et pourquoi pas un filtre auto ou élaboré ?
mais plus facile avec fichier exemple déposé ici 🙂

P.

 

[bsh54]

Re : Problème recupération tableau

Bonjour,

merci pour vos réponses, "camarchepas" j'ai utilisé ce que tu m'as donné en le modifiant un peu et ça marche niquel!

" N = Range("A2").Value
Set trouve = Range("B:B").Find(N, lookat:=xlWhole)
Set repere = Range("B:B").Find(N, SearchDirection:=xlPrevious, lookat:=xlWhole)
Range("C" & trouve.Row & ":CE" & repere.Row).Select
"

Bonne journée à vous !!