Bonjour,
Dans un même classeur et entre 2 feuilles, je cherche à copier/coller une cellule en fonction de la réponse donnée par une inputbox. Après de longues recherche je n'arrive pas à comprendre pourquoi mon programme ne fonctionne pas.
1/ il ne tient pas compte de la réponse de la inputbox
2/ il copie et colle de manière aléatoire dans l'autre feuille.
Ci après le script:
Le code et le bouton se trouve sur la 2ième feuille appelé "fiche"
Merci par avance pour votre aide,
Dans un même classeur et entre 2 feuilles, je cherche à copier/coller une cellule en fonction de la réponse donnée par une inputbox. Après de longues recherche je n'arrive pas à comprendre pourquoi mon programme ne fonctionne pas.
1/ il ne tient pas compte de la réponse de la inputbox
2/ il copie et colle de manière aléatoire dans l'autre feuille.
Ci après le script:
Code:
Private Sub CommandButton1_Click()
num = InputBox(" Quel numéro de feuille ?")
If num = "" Then Exit Sub
'ActiveSheet.Copy After:=Sheets(num)
Worksheets("récap").Select
With Worksheets("récap").Range("A:A")
Set c = .Find(What:=num, LookIn:=xlValues)
If Not c Is Nothing Then
ActiveCell.Offset(0, 9).Activate
ActiveCell.Formula = ActiveCell + Sheets("fiche").Range("H43").Value
End If
End With
End Sub
Merci par avance pour votre aide,