iStarOSX
XLDnaute Junior
Bonjour à tous.
Voila j'ai une macro qui fonctionne très bien lorsque je la lance manuellement, mais elle ne fonctionne plus lorsque je la lie a un bouton d'un userform.
Je pense que cela vient du fait que j'utilise "ActiveCell" et donc quand on appuis sur le bouton de l'userform, on désactive la cellule et la macro ne fonctionne plus.
Mais je ne vois par quoi je peut remplacer "ActiveCell" dans ma macro, sachant que je veux qu'il n'y est que la cellule active qui soit prise en compte.
Voici le code de ma macro :
Si un pro d'Excel pouvait me dire comment je peux résoudre ce problème, je l'en remercie d'avance.
Voila j'ai une macro qui fonctionne très bien lorsque je la lance manuellement, mais elle ne fonctionne plus lorsque je la lie a un bouton d'un userform.
Je pense que cela vient du fait que j'utilise "ActiveCell" et donc quand on appuis sur le bouton de l'userform, on désactive la cellule et la macro ne fonctionne plus.
Mais je ne vois par quoi je peut remplacer "ActiveCell" dans ma macro, sachant que je veux qu'il n'y est que la cellule active qui soit prise en compte.
Voici le code de ma macro :
Code:
Sub Soupapes2Selection()
If Sheets("Soupapes").Range("T1").Value = 1 Then
Sheets("Sélection").Range("W80:AM80") = ActiveCell.EntireRow.Value
End If
If Sheets("Soupapes").Range("T1").Value = 2 Then
Sheets("Sélection").Range("W81:AM81") = ActiveCell.EntireRow.Value
End If
If Sheets("Soupapes").Range("T1").Value = 3 Then
Sheets("Sélection").Range("W82:AM82") = ActiveCell.EntireRow.Value
End If
If Sheets("Soupapes").Range("T1").Value = 4 Then
Sheets("Sélection").Range("W83:AM83") = ActiveCell.EntireRow.Value
End If
If Sheets("Sélection").Range("AF77").Value > Sheets("Sélection").Range("B74").Value And Sheets("Sélection").Range("AF77").Value > Sheets("Sélection").Range("B75").Value Then
Sheets("Sélection").Range("B75") = Sheets("Sélection").Range("AF77").Value
End If
Unload Soupapes2
Sheets("Sélection").Visible = True
Sheets("Sélection").Select
Sheets("Soupapes").Visible = False
End Sub
Si un pro d'Excel pouvait me dire comment je peux résoudre ce problème, je l'en remercie d'avance.