Bonsoir
j'ai un userform avec des textbox et je voudrais récupérerdes cellules de différentes feuilles.
Mais comment et est ce possible de se passer de l'activation de la feuille!
C'est à dire ceci fonctionne:
Ce que je voudrais c'est savoir si je peux utiliser ActiveCell, sans activer la feuille?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sheets("BDMedical").Activate Dim Ligne As Integer For Ligne = 1 To Sheets("BDMedical").Range("A1").CurrentRegion.Rows.Count If Sheets("BDMedical").Range("A" & Ligne).Text = idpat Then Sheets("BDMedical").Range("A" & Ligne).Select End If Next Ligne Me.ttbActSport.Value = ActiveCell.Offset(0, 3).Value Me.ttbAntMedicaux.Value = ActiveCell.Offset(0, 4).Value Me.TtbAntChirugicaux.Value = ActiveCell.Offset(0, 5).Value Me.ttbAntFracturesEntorse.Value = ActiveCell.Offset(0, 6).Value Sheets("BDPatients").Activate
Mais je ne trouve pas la façon de l'écrire, c'est à dire
ceci me donne l'erreur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part Me.ttbActSport.Value = Sheets("BDMedical").ActiveCell.Offset(0, 3).Value
erreur d'executoin '438':
propriete ou methode non gérée par cette objet
Je débute en vba
Merci pour votre aide.
Daniel
Partager