Discussion :

[beatrice2fr]

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 :

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

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

[Pierre Fauconnier]

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 :

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

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

[babaothe]

salut

ceci ferait-il l'affaire ?

Code :

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

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

[Pierre Fauconnier]

Bonne idée, babaothe...

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

Code :

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

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

[beatrice2fr]

merci de vos reponses
en mettant cette ligne dans un exemple

Code :

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

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.

[Pierre Fauconnier]

...
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 :

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

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 :

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

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

[beatrice2fr]

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