Récupérer coordonnées cellules

Résolu
reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -  
reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -
Je dispose d'une extraction de base de donnée un peu particulière au format excel.

Dans une macro, je dois récupérer les coorcdonées d'une cellule trouvée par rechercher/remplacer (ctrl/f) (Impossible de faire la recherche par rechecheV)

J'ai bien tenté activé la celluler et d'utiliser la fonction :

ligne = activecell.row

Mon but est de détermmiener l'emplacement de cette ligne pour copier les x lignes suivantes.

En fait, chaque paquets de données reprends 3 lignes de titres, x lignes de données et est séparé du suivant et est séparé par une ligne vide. Le hic c'est qu'avant il y a une espèce de table récapitulative qui n'est pas formatée de la même manière (différence de fusion de cellule, ...)

Je tiens a préciser que je suis débutant en programation vba mais que j'ai des notions de programations en C.

D'avance merci pour votre aide.

4 réponses

Utilisateur anonyme
 
Bonjour ça aurait été bien au début du message
1
reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Ca a faonctionné, un tout grand merci
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
0
Patty5083 Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir
Si le problème est complètement résolu, peux-tu marquer cette question comme étant résolue?
Bonne soirée
0
reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention  
 
D'accord patty, mais comment on fait ?
0
reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   > reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention  
 
j'ai trouvé, sorry
0
Patty5083 Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir
Pour récupérer le numéro de ligne :

Cells.Find(What:="Toto", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
'récupère la ligne
    NumLig = ActiveCell.Row


si j'ai bien compris...
-1
Utilisateur anonyme
 
J'ai modifié ton message pour forcer basic en coloration, voir ici la bonne utilisation la coloration syntaxique.
0