Recherche 1° cellule

[cloclo57]

Bonsoir a tous
Je narrive toujours pas a resoudre mon probleme ci dessous.

'Dans la ligne ci dessous je voudrais pointer le Mois en cours (Janvier B4,fevrier K4)
sachant que la colonne est selectionner , je voudrais la valeur de la premier cellule de cette colonne

Ci dessous mon exemple , il y a une erreur ???? , il ne me pointe pas la 1° ligne

Range("D50").Value = c.Offset(Range(c.Address).End(xlUp).Row, -3).Value


Private Sub CommandButton1_Click()

If UserForm6.medecin.Value = "" Then
MsgBox "Vous n'avez saisi aucun Bénéficiaire !"

Else

With Worksheets(1).Range("E5:dc35")
Set c = .Find(medecin, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do

Range("E50").Value = c.Value
Range("g50").Value = c.Address
Range("F50").Value = c.Offset(0, 1).Value
Range("B50").Value = c.Offset(0, -2).Value
Range("C50").Value = c.Offset(0, -3).Value

' Dans la ligne ci dessous je voudrais pointer le Mois en cours (Janvier B4,fevrier K4)
' sachant que la colonne est selectionner , je voudrais la valeur de la premier cellule de cette colonne

Range("D50").Value = c.Offset(Range(c.Address).End(xlUp).Row, -3).Value
'
'
Rows("50:50").insert Shift:=xlDown

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Range("B51:f70").Select
selection.Copy
Sheets("depense").Select
Range("A2:E2").Select
ActiveSheet.Paste
Range("A2:E2").Select
selection.EntireRow.insert

Range("A2:E50").Select

With selection
.HorizontalAlignment = xlCenter
Range("a2").Select
End With


Sheets("cal2008").Select
Range("b1").Select

End If
End Sub

 

[cloclo57]

Re : Recherche 1° cellule

ci joint mon fichier

 

[Cousinhub]

Re : Recherche 1° cellule

Bonsoir,
peut-être :

Range("D50").Value = Cells(4, c.Column - 1).Value

 

[cloclo57]

Re : Recherche 1° cellule

Tout d'abord Merci
J'ai fais des essais , ça fonctionne tres bien

Encore une fois Merci