convertir un range en cells [Résolu]

[backdraf]

Bonjour,
Mon probleme c'est de convertir un "range(A1)" en "cells(1,1)"
j'ai fait une recherche avec :

Code :

    Valtrouvé = [B:B].Find(What:=ValCherche, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address

j'ai comme format de retour "Valtrouvé = range(A1)"

hors je prefererai avoir le format "Valtrouvé = cells(1,1)" car je veux apres faire :

Code :

cells(1,1+1)

Si quelqu'un a une idée
MERCI

[jp014]

Bonjour

Valtrouvé est de type range

Valtrouvé.Row donnera le numéro de ligne
Valtrouvé.Column donnera le numéro de colonne, valeur exploitable avec cells
Valtrouvé.offset(0,1) donnera une cellule sur la même ligne situé sur la colonne suivante.

Jp014

[backdraf]

Merci JP014
mais malgre cela je n'arrive toujours pas a recuperer le n° de ligne et de colonne

Code :

1
2
3
Valtrouvé = [B:B].Find(What:=ValCherche, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
    ligne = Valtrouvé.Row
    colonne = Valtrouvé.Column

,

voici le code ou me suis je trompé ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub MACRO_AT_INSEE()
 
' Recuperation du nom du fichier et de la feuille dans une variable =====
NomFichierAT = ActiveWorkbook.Name
NomFeuilleAT = ActiveSheet.Name
' FIN ==================================================
 
' Demande d'ouvrir un fichier à l'utilisateur =======================
Set OuvrirFichierINSEE = Application.Workbooks.Open(Application.GetOpenFilename)
NomFichierINSEE = ActiveWorkbook.Name
NomFeuilleINSEE = ActiveSheet.Name
' Fin ===================================================
 
' Deplacement d'une feuille d'un classeur à l'autre ==================
    Sheets(NomFeuilleINSEE).Select
    Sheets(NomFeuilleINSEE).Move Before:=Workbooks(NomFichierAT). _
        Sheets(1)
    Windows(NomFichierAT).Activate
' Fin ===================================================
Sheets(NomFeuilleAT).Select
Derniere_valeur = Sheets(NomFeuilleAT).Cells(5000, 1).End(xlUp).Row
 
For lig = 3 To Derniere_valeur
    ValCherche = Cells(lig, 7).Value
    Sheets(NomFeuilleINSEE).Select
    Valtrouvé = [B:B].Find(What:=ValCherche, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
    ligne = Valtrouvé.Row
    colonne = Valtrouvé.Column
Next lig
End Sub

merci pour votre aide

[Gorfael]

Salut backdraf et le forum

Code :

Valtrouvé = [B:B].Find(What:=ValCherche, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address

Retourne l'adresse en Valtrouvé, en référence absolues, sous un format texte!

Code :

Set Valtrouvé = [B:B].Find(What:=ValCherche, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns)

retourne la valeur Trouvé dans la variable plage Valtrouvé. Et comme c'est une cellule, on peut en extraire la ligne (.Row) et la colonne (.Column)
A+

[backdraf]

Merci Gorfael