VBA rechercheV sur plage ou je ne connais ni le début ni fin

un essai pour fabriquer la formule

https://www.cjoint.com/c/LHdqVbjat7B

Cdlmnt

Bonjour

d'après ton exemple le TCD2 se situe exactement en dessous du TCD1 mais 9 lignes plus bas. Il n'est pas décalé, il est lui aussi en colonne A et B.

quand tu dis : 'il n'est pas décalé' : le mien ou le tien ?

Tu modifies la disposition de mes tcd dans mon fichier comme ça te va et tu me renvoies le fichier

Cdlmnt

Bonjour

Pour la fin, pas de pb puisque c'est la dernière cellule non vide de la colonne

Par contre, pour le début, il faudrait en dire plus, quel est le critère qui permet de le savoir (HTCD2 = Cells(DLTCD + 9, 1)
Cells(DLTCD + 9, 1).Select n'est pas très clair)

Cdlmnt

Bonjour le fil,

Je n'ai pas le temps d'épurer un code que j'avais créé il y a des lustres, qui permet de nombreuses identifications de plages variables, de nombreuses lignes inutiles permettent d'avoir un visuel sur le travail du code VBA

pour permettre d'annoter les entêtes de colonnes et de lignes, l'identification de la plage de recherche commence ligne 3 colonne 3 soit C3

l'identification de la matrice de recherche est automatique en fonction du premier mot trouvé quelque soit la colonne et la ligne, le mot cible est en D1 et doit être dans la première colonne de la matrice,  le n° colonne de recherche est en H1

https://www.cjoint.com/c/LHdmRsfwd7F

Bonjour CCM81,

Un très grand merci pour ta réponse et ton aide.

En effet et désolé de mon manque de clarté. En fait, j’ai créé 5 TCD sur une feuille nommée TCD. Chaque TCD est mouvant, il peut être plus ou moins court d’une semaine sur l’autre.

Du coup, j’ai créé des variables permettant de positionné mes TCD selon l’emplacement les uns des autres.

Exemple, le TCD1 commence toujours en A1, par contre la dernière ligne de mon TCD elle varie de semaine en semaine. Exemple en S1 mon TCD1 va jusqu’à la cellule A36, S2 il va jusqu’à A45, en S3 A39 ETC.

Du coup, j’ai créé une variable qui définit la dernière ligne remplie de mon TCD1

                DLTCD = Sheets("TCD").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

Une fois que je connais la fin de mon TCD1, j’ai créé mon TCD2, 9 lignes en dessous du TDC1 avec la variable HTCD2 (signifiant Haut de mon TCD2)

                HTCD2 = Cells(DLTCD + 9, 1)

J’ai définit la dernière ligne de mon TCD2 par la variable DLTCD2

                DLTCD2 = Sheets("TCD").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

Les autres TCD sont également positionnés selon l’emplacement des autres TCD. Pour info, même si ça nous est inutile pour ma recherche, le TCD3 se situe 3 colonnes à droite du TCD1, le TCD4 se situe 9 lignes en dessous du TCD3 et le TCD5 se situe 3 ligne à droite du TCD4

Plus loin dans ma macro, je réalise une rechercheV dont la Table_Matrice de la rechercheV est le TCD2. Voici la formule sur bureautique :

                =SIERREUR(RECHERCHEV(A2;TCD!$A$40:$B$87;2;0);0)

Sauf que du coup c’est erroné car la Table_Matrice « TCD!$A$40:$B$87 » est figée alors que mon TCD2 lui ne sera jamais précisément sur ces cellules puisqu’il dépend d’autres éléments mouvants également. A mon niveau j’aurais besoin qu’il aille chercher le TCD2 qui est définit pas son début avec la variable HTCD2 et par la fin avec DLTCD2.

Je précise que je suis nul en VBA et que je réalise ma macro avec l’enregistreur et que je modifie en VBA pour avoir exactement ce que je souhaite.

J’ai créé un fichier au cas où je ne suis pas clair,

https://www.cjoint.com/c/LHdorQIvTHD

Je précise qu’il s’agit de la toute dernière commande. Les commandes du dessus peuvent être exécuté par la macro

Pour votre fichier, je vous en remercie. J’avoue que c’est un peu complexe pour moi. De ce que je comprends, il va chercher la plage du tableau, mais du coup comment le transcrire dans une formule rechercheV ?

Concernant l'activecell, je l'utilise car c'est la proposition de l'enregistreur. Si j'ai bien compris le .formulaLocal va me permettre d'utiliser des adresse de type A1:B2 plutôt que R1C1:R2C2 c'est bien ça ?

Encore merci.

Cordialement

Jérôme

Bonjour

Si tu n'as de recherche que dans le tcd2, ça n'est pas la peine de modifier la disposition de tes tcd.

Une solution dans ce sens.

J'ai affiché la formule pour excel 2003 (chez moi), dans le code, tu as celle pour ta version d'excel

https://www.cjoint.com/c/LHih2XpUDGB

Cdlmnt

Bonjour

Un poil plus simple

Public Sub ok()
Dim nuche
Dim li1 As Long, li2 As Long, adrtcd2 As String, f As String, g As String, f1 As String
With Sheets("TCD")
  ' recup n° cherché dans tcd2
  nuche = .Range("C5").Value
  ' dernière ligne tcd2
  li2 = .Cells(Rows.Count, 1).End(xlUp).Row
  li1 = li2
  ' prelière ligne tcd2
  Do
    li1 = li1 - 1
  Loop Until .Cells(li1, 1) = ""
  ' adrezse tcd2
  adrtcd2 = .Range(.Cells(li1 + 1, 1), .Cells(li2, 2)).Address
  ' formule excel 2003 - chez moi
  g = "RECHERCHEV(" & nuche & ";" & adrtcd2 & ";2;0)"
  f = "=SI(ESTNA(" & g & ");""""" & ";" & g & ")"
  ' formule excel >=2007 ça devrait ressembler à ça
  'f1 = "=SIERREUR(" & g & ";0)"
  .Range("C7").FormulaLocal = f
End With
End Sub

Cdlmnr