Récupérer la valeur d'une variable
Résolu
AlanBoard
-
AlanBoard -
AlanBoard -
Bonjour
Je viens demander de l’aide car je n’arrive pas à récupérer la valeur d’une variable « ValeurM16 »
Dans l’onglet » Nb Participants T2 », j’ai réussi à donner la valeur de la cellule M16 à la variable « ValeurM16 », mais je n’arrive pas à récupérer cette variable pour l’utiliser dans l’onglet
« Equipe T2 ».
Ci-dessous la macro de l’onglet » NbparticipantsT2 » qui fonctionne
Et la macro de l’onglet » Equipe2 » ou je n’arrive pas à récupérer la variable.
Merci grandement de votre aide
--------------------------------------------------------------------------
Dim ValeurM16 As Integer
Sub NbParticipantsT2()
'
Sheets("Nb Partcipants T2").Select
ValeurM16 = Cells(16, 13)
MsgBox ValeurM16 & " "
End Sub
-----------------------------------------------------------------------------
Sub EquipeT2()
'
Dim ValeurM16 As Integer
ValeurM16 = Sheets("Nb Participants T2).Cells(16,13).Value
If ValeurM16 > 30 Then
ActiveWindow.ScrollWorkbookTabs Sheets:=4
ActiveWindow.ScrollWorkbookTabs Sheets:=4
Sheets("Equipes T2 2").Select
Else
ActiveWindow.ScrollWorkbookTabs Sheets:=4
ActiveWindow.ScrollWorkbookTabs Sheets:=4
Sheets("Equipes T2").Select
End If
End Sub
Je viens demander de l’aide car je n’arrive pas à récupérer la valeur d’une variable « ValeurM16 »
Dans l’onglet » Nb Participants T2 », j’ai réussi à donner la valeur de la cellule M16 à la variable « ValeurM16 », mais je n’arrive pas à récupérer cette variable pour l’utiliser dans l’onglet
« Equipe T2 ».
Ci-dessous la macro de l’onglet » NbparticipantsT2 » qui fonctionne
Et la macro de l’onglet » Equipe2 » ou je n’arrive pas à récupérer la variable.
Merci grandement de votre aide
--------------------------------------------------------------------------
Dim ValeurM16 As Integer
Sub NbParticipantsT2()
'
Sheets("Nb Partcipants T2").Select
ValeurM16 = Cells(16, 13)
MsgBox ValeurM16 & " "
End Sub
-----------------------------------------------------------------------------
Sub EquipeT2()
'
Dim ValeurM16 As Integer
ValeurM16 = Sheets("Nb Participants T2).Cells(16,13).Value
If ValeurM16 > 30 Then
ActiveWindow.ScrollWorkbookTabs Sheets:=4
ActiveWindow.ScrollWorkbookTabs Sheets:=4
Sheets("Equipes T2 2").Select
Else
ActiveWindow.ScrollWorkbookTabs Sheets:=4
ActiveWindow.ScrollWorkbookTabs Sheets:=4
Sheets("Equipes T2").Select
End If
End Sub
Configuration: Windows / Chrome 95.0.4638.69
A voir également:
- Récupérer la valeur d'une variable
- Recuperer message whatsapp supprimé - Guide
- Comment recuperer une video sur youtube - Guide
- Récupérer mon compte facebook désactivé - Guide
- Comment récupérer un compte facebook piraté - Guide
- Impossible de récupérer mon compte gmail - Guide