Je ne sais pas qu'elle formule pour mon prob

Bonjour

tout d'abord merci de votre intérêt...

voilà j'organise des tournois.... et je suis perdu....

Voilà en AL4 il faudrait reporter D5mais si H5 n'est plus vide... ( en fait il y aura le résultat de son match....) alors là dans AL4 il y aura ... ( à la place du nom....) fait ou joué...cela me permettra de voir les matchs déjà faits....ensuite je copierai la formule pour l'adapter aux autres...

Merci à vous

comme je me doute que pas évident à comprendre je vous mets le fichier

encore merci

a tester

meteo62 a écrit :

a tester

j'ai téléchargé le fichier... mais si mets résultat en H5... rien ne change , de plus je ne vois la formule .... qui a été employé....

ou alors pas compris....

fichier modifier

si la cellule d5 est modifier il lance la macro (bouton "change"sur la feuil1

Afficher l’onglet Développeur dans votre application Office

Cliquez sur l’onglet Fichier.

Cliquez sur Options.

Cliquez sur Personnaliser le ruban.

Sous Personnaliser le ruban et Onglets principaux, activez la case à cocher Développeur.

Private Sub CommandButton1_Click()
If Sheets("Feuil1").Range("H5").Value >= "" Then
    Sheets("Feuil1").Range("AL4").Value = Sheets("Feuil1").Range("d5").Text
ElseIf Sheets("Feuil1").Range("H5") = "" Then 'si d5 vide alors ont vide la cellule en al4
    Sheets("Feuil1").Range("AL4").Value = ""

End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
Call CommandButton1_Click
End If
End Sub

version automatique sans bouton = fichier test101.xlsm

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
Call change
End If
End Sub

Public Sub change()
If Sheets("Feuil1").Range("H5").Value >= "" Then
    Sheets("Feuil1").Range("AL4").Value = Sheets("Feuil1").Range("d5").Text
ElseIf Sheets("Feuil1").Range("H5") = "" Then 'si d5 vide alors ont vide la cellule en al4
    Sheets("Feuil1").Range("AL4").Value = ""
End If
End Sub