Fonction insérer en MACRO Excel
Bonjour,
Je suis en trin de faire un questionnaire sous Excel pour mes vendeurs.
Mon problème est :
J’ai fai une question avec choix déroulent en fonction de la réponse une nouvelle liste de question apparais.
Pour l’instant voilà ce que j’ai fait :
Sub Choix04()
If [E92] = 1 Then Interne
‘If [E92] = 2 Then Externe
'If [E92] = 3 Then Vide
'If [E92] = 4 Then Vide
End Sub
Sub Interne()
Sheets("Base de Données").Select
Range("I3:O22").Select
Selection.Copy
Sheets("Questionnaire").Select
Range("D94").Select
ActiveSheet.Paste
End Sub
Sauf que je ne voudrais pas qu’il les colle mais qu’il les insère et je ne trouve pas la fonction qui pourrait me le permettre merci de vos réponses.
Salut fierfox,
essaye :
Sub interne
Sheets("Questionnaire").Range("D94:J113").Value = Sheets("Base de Données").Range("I3:O22").Value
End Submais personnellement, je définirais mes tableaux
Sub interne
Dim tablo_question as range, tablo_donnees as range
Set tablo_question = Sheets("Questionnaire").Range("D94:J113")
set tablo_donnees = Sheets("Base de Données").Range("I3:O22")
tablo_question = tablo_donnees
End SubBonjour,
Essaye ceci :
Sub Choix04()
Select Case Range("E92")
Case Is = 1
Sheets("Base de Données").Range("I3:O22").Copy
Sheets("Questionnaire").Range("D94").Insert Shift:=xlDown
Case Is = 2
'ton code Externe
Case Is = 3, 4
'ton code Vide
End Select
Application.CutCopyMode = False
End SubAmicalement
Dan