Discussion :

[backdraf]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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