C
CactusX
Guest
Bonjour le Forum,
Cette fonction permet d'identifier la première cellule vide à partir d'une plage indiquée et de retourner le résultat dans une autre cellule. Ca fonctionne, cependant il doit y avoir + simple pour le code.
Certainement une histoire de déclaration de variable.
Quelqu'un a t-il autre chose à proposer sous XL97 ?
Merci à vous.
Sub MEdercel(colonne As String, debut As Byte, fin As Byte, Rxy As String)
' Appelé par :
' Call MEdercel("A", 10, 100, "B1")
' soit : Colonne de recherche, Ligne de début de recherche, Ligne de fin de recherche, cellule pour le retour
Dim z As String
For x = debut To fin
z = colonne & Trim(Str(x))
If Range(z) <> "" Then
x = x + 1
Range(colonne & x).Select
If Range(colonne & x) = "" Then
Range(Rxy) = ActiveCell.Row
Exit Sub
End If
End If
Next
End Sub
Cette fonction permet d'identifier la première cellule vide à partir d'une plage indiquée et de retourner le résultat dans une autre cellule. Ca fonctionne, cependant il doit y avoir + simple pour le code.
Certainement une histoire de déclaration de variable.
Quelqu'un a t-il autre chose à proposer sous XL97 ?
Merci à vous.
Sub MEdercel(colonne As String, debut As Byte, fin As Byte, Rxy As String)
' Appelé par :
' Call MEdercel("A", 10, 100, "B1")
' soit : Colonne de recherche, Ligne de début de recherche, Ligne de fin de recherche, cellule pour le retour
Dim z As String
For x = debut To fin
z = colonne & Trim(Str(x))
If Range(z) <> "" Then
x = x + 1
Range(colonne & x).Select
If Range(colonne & x) = "" Then
Range(Rxy) = ActiveCell.Row
Exit Sub
End If
End If
Next
End Sub