bonjour
J'ai récupérée le code suivant qui permet de trouver la premiere cellule vide dans une plage ( exemple A3:Z3 que l'on va nommer "tablo") .
Celui ci fonctionne bien mais mon probleme est que je voudrai utiliser l'adresse trouvé dans une macro .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub azer() ligDer = [tablo].Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row premCol_T = [tablo].Item(1).Column colDer_T = [tablo].Columns.Count + premCol_T - 1 colDer = Range(Cells(ligDer, premCol_T), Cells(ligDer, colDer_T)).Find("*", LookIn:=xlValues, _ SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column MsgBox Cells(ligDer, colDer + 1).Address End Sub
Par exemple dans une macro qui copie le contenu de la cellule G27, pouvoir coller dans la cellule trouvé par Sub azer.
j'espere etre precise....






Répondre avec citation
Partager