VBA, fonction if, then

Hello,

Je suis un débutant en vba et essaie de faire une fiche pour entrer ces notes scolaire. J'écris la note, et sélection la branche et quand je valide la note va directement dans la bonne colonne (branche scolaire). J'ai essayer un formulaire comme ceci mais ça ne marche pas:

Sub Note()

'

' Note Macro

' Macro enregistrée le 05.06.2008 par andré

'

'

Range("C7").Select

Selection.Copy

If ("B1" = "Français") Then

Range("H3").Select

ActiveSheet.Paste

If ("B1" = "Anglais") Then

Range("H4").Select

ActiveSheet.Past

....

Range("C7").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = ""

Range("C7").Select

End If

End Sub

Pouvez-vous m'aider.

Merci d'avance

Bonsoir,

Essaye ceci :

Sub Note()
'Macro enregistrée le 05.06.2008 par andré 
'Macro modifiée par DAn le 05/06/08
Select Case Range("B1")
Case Is = "Français"
Range("C7").Copy Destination:=Range("H3")
Case Is = "Anglais"
Range("C7").Copy Destination:=Range("H4")
End Select
End Sub

Amicalement

Dan

Merci mais j'ai encore un problème. Voici mon code:

Sub Note()
'Macro enregistrée le 05.06.2008 par andré
'Macro modifiée par DAn le 05/06/08
Select Case Range("B1")
Case Is = "1"
Range("F9").Copy Destination:=Range("Feuil2!d9")
Case Is = "2"
Range("F9").Copy Destination:=Range("Feuil2!e9")
Case Is = "3"
Range("F9").Copy Destination:=Range("Feuil2!f9")
Case Is = "4"
Range("F9").Copy Destination:=Range("Feuil2!g9")

End Select

End Sub

Il ça marque "impossible d'effectuer le code en mode arrêt".

Et est-ce qu'il faut que je fasse comme ça pour chaque branche ou il existe une formule plus courte?

Merci

re,

Je vais au plus simple. Enregistre ton fichier puis réouvre le et fais un nouvel essai

Eventuellement place ton fichier ici

Dan

Voilà ma feuille:

https://www.excel-pratique.com/~files/doc/LhWVfNotes.xls

Merci d'y jeter un coup d'oeil

re,

Le pb est dans les deux lignes que tu as rajoutées.

Remplace les par : Sheets("feuil2").Range("D9").EntireRow.Insert

dis moi pourquoi tu insères une ligne ?

A te relire

Dan

Edit : Ne dois tu pas mettre la date en feuille 2 aussi en regard de la cote ?

Bonsoir,

Dan, jojo veut simplement pouvoir écrire en ligne 10 si la ligne 9 est déjà remplie.

Nad