adapter un code

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") .

Code:

---

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

---

Celui ci fonctionne bien mais mon probleme est que je voudrai utiliser l'adresse trouvé dans une macro .
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....

Bonjour

Il y a peut-être une raison à utiliser ce code, mais je le trouve un peu complexe.

Je te propose de travailler avec une fonction qui renvoie un objet Range correspondant à la première cellule vide d'une plage passée en paramètre

Code:

---

1 2 3 4 5 6 7 8 9

Function CelluleVide(Plage As Range) As Range Dim Cellule As Range For Each Cellule In Plage If IsEmpty(Cellule) Then Set CelluleVide = Cellule Exit For End If Next Cellule End Function

---

salut

ceci ferait-il l'affaire ?

Code:

---

1 2 3 4

Function CelluleVide(Plage As Range) As Range Set CelluleVide = Plage.SpecialCells(xlCellTypeBlanks) Set CelluleVide = Cells(CelluleVide.Row, CelluleVide.Column) End Function

---

Bonne idée, babaothe...

On peut alors grouper sur une ligne et se passer de fonction

Code:

---

Set CelluleVide = Plage.SpecialCells(xlCellTypeBlanks)(1, 1)

---

merci de vos reponses
en mettant cette ligne dans un exemple

Code:

---

1 2 3 4 5 6 7

Sub test()   Range("G27").Select Selection.Copy Set CelluleVide = Range("A2:Z2").SpecialCells(xlCellTypeBlanks)(1, 1) ActiveSheet.Paste End Sub

---

j'ai peut etre une faute de syntaxe.

Citation:

---

Envoyé par beatrice2fr

...
j'ai peut etre une faute de syntaxe.

---

C'est parce que tu oublies de sélectionner CelluleVide, mais tu peux travailler avec les cellules, même pour un copier-coller, sans sélectionner les cellules.


Je crois avoir compris que tu souhaites "boucher" la première cellule vide d'une plage

Si tu es sûre qu'il y a une cellule vide dans la plage, tu peux faire ceci

Code:

---

1 2 3

Set PlageCopiee = Range("G27") Set Plage = Range("A2:Z2") PlageCopiee.Copy Plage.SpecialCells(xlCellTypeBlanks)(1, 1)

---

Sinon, tu dois tester qu'il y a au moins une vide

Code:

---

1 2 3 4 5 6 7

Set PlageCopiee = Range("G27") Set Plage = Range("A2:Z2") If (Plage.Cells.Count - Evaluate("counta(""" & Plage.Address & """)")) <> 0 Then PlageCopiee.Copy Plage.SpecialCells(xlCellTypeBlanks)(1, 1) else ' Eventuellement, code si pas de cellule vide ... End If

---

Prends l'habitude de travailler avec des objets, c'est plus simple à maintenir...

merci de ton aide, c'est exactement le resultat escompter. Et en plus simple
que le code de depart