Re : Sélectionner une cellules sur une autre feuille avec VBA
Re
Excellent, Merci
Je viens de l'adapter a mon fichier, c'est exactement ce que je voulais.
J'ai une trentaine de cellules auxquelles je doit appliquer ce code, j'y ai mis un bouton sur chaque, doit-je recopier entièrement mon code pour chacun, ou y a t il une partie du code qui puisse servir pour tous.
Mon code modifié pour 2 des cellules:
Private Sub AltC1_Click()
On Error Resume Next
Application.Goto Sheets("Data_Ration").Cells(Application.Match([Date], [Date_Données_Ration], 0) + 3, 53)
If Err.Number > 0 Then
If Len([Date]) = 0 Then
MsgBox "La cellule: " & [DateF7].Address(0, 0) & " est vide!", 16
Else
MsgBox "La date renseignée: " & [DateF7].Text & " est introuvable.", 64
End If
On Error GoTo 0
End If
End Sub
Private Sub AltC2_Click()
On Error Resume Next
Application.Goto Sheets("Data_Ration").Cells(Application.Match([Date], [Date_Données_Ration], 0) + 3, 56)
If Err.Number > 0 Then
If Len([Date]) = 0 Then
MsgBox "La cellule: " & [DateF7].Address(0, 0) & " est vide!", 16
Else
MsgBox "La date renseignée: " & [DateF7].Text & " est introuvable.", 64
End If
On Error GoTo 0
End If
End Sub
A la mise place, je me pose aussi une autre question, serait il possible et facilement réalisable de faire un petit formulaire avec une listbox dans laquelle serait chargée la liste des dates et qui récupérerai les données de la feuille "données" et transférerai les modifications.
J'ai commencé à le construire partiellement à partir de ceux qui me remplissent mes tableaux, qu'en pensez vous?
Voir bouton Formulaire Modif
Je ne sait si ma dernière phrase est compréhensible.
Joël