Copier la valeur d'une cellule

Bonjour à tous,

J'aimerai, à l'aide d'une formule et non d'une macro réaliser ceci :

J'ai deux feuilles :

une et deux

Aux clic sur A1 de feuille deux, la cellule A2 de feuille une récupère son contenu

Savez comment je doit procéder pour faire cela ?

Merci d'avance à tous

Bonjour

Aux clic sur A1 de feuille deux, la cellule A2 de feuille une récupère son contenu

Impossible sans macro.

Tu peux uniquement entrer la valeur en A1 dans la feuille2 et en A2 de la feuille1 tu peux mettre la formule :

=Feuil2!A1

Amicalement

Nad

Salut et merci pour la réponse,

J'ai joint un fichier pour expliquer mon besoin, pense tu être en mesure de m'aider

Re

Si tu acceptes une macro, oui ; car si j'ai bien compris, tu peux cliquer sur n'importe quelle cellule située en A3, D3, G3:G6 et tu veux sa valeur et celle de la colonne à côté dans feuil1

Tu confirmes ?

Nad

Salut,

C'est bien ca.

Merci d'avance

Bonjour

Voici le fichier

Pense à activer les macros

Amicalement

Nad

Salut et merci, ça marche bien

Petite chose pour cette ligne :

If Not Application.Intersect(Target, Range("feuille2!A3,feuille2!D3,feuille2!G3:feuille2!G6")) Is Nothing Then

Je voudrai l'insérer dans la feuille1 et non la feuille2

J'ai essayé comme ci-dessus mais ça ne fonctionne pas...

As tu une petite idée pour faire cela ?

Re

Si les données à copier sont dans la feuille TARTEMPION, tu coupes le code qu'il y a dans feuil2 et tu le colles dans la feuille TARTEMPION

Nad

En fait c'est un peut plus compliqué car la feuille1 est toujours la alors que les feuille2 se générer avec du code php et je ne sais pas comment générer le script de la macro...

Je ne comprends pas.

Peux-tu me décrire comment se présente ton fichier avant et après le code PHP (noms des feuilles)

Nad

Salut, tu trouvera mon template qui fonctionne

Et tu le trouvera également aprés le script php et la il ne fonctionne plus bien qu'il ai gardé le code dans la 2eme feuille.

Voici le template de base qui fonctionne

Re

Essaye en plaçant ce code dans le ThisWorkbook de la feuille AVANT

Tu supprimes celui qu'il y a dans Feuil2

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = Feuil1.Name Then Exit Sub
If Not Application.Intersect(Target, Range("A3,D3,G3:G6")) Is Nothing Then
Sheets("Feuil1").Range("A3") = Target
Sheets("Feuil1").Range("B3") = Target.Offset(0, 1)
End If
End Sub

Nad

C'est super merci

Salut, j'ai trouvé une autre solution sans supprimer la feuille donc ça c'est bon.

Par contre, sais tu comment faire pour indiquer ici :

Sheets("Fiche d'inscription").Range("N12") = Target.Offset(0, -1)

Sheets("Fiche d'inscription").Range("N12") = cette feuille cette ligne colonne 1

En fait ça se présente comme ci dessous :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A2:A200")) Is Nothing Then

Sheets("Fiche d'inscription").Range("N12") = Target.Offset(0, 0)

Sheets("Fiche d'inscription").Range("E14") = Target.Offset(0, 3)

Sheets("Fiche d'inscription").Range("O14") = Target.Offset(0, 4)

Sheets("Fiche d'inscription").Range("AA14") = Target.Offset(0, 5)

Sheets("Fiche d'inscription").Range("AN14") = Target.Offset(0, 6)

End If

ICI, je passe à B donc obligé de modifier tout les index.......

Je préférerai lui donner le numéro de colonne directement

If Not Application.Intersect(Target, Range("B2:B200")) Is Nothing Then

Sheets("Fiche d'inscription").Range("N12") = Target.Offset(0, -1)

End If

End Sub

Merci par avance et à ++

Bonsoir

Merci d'envoyer ton nouveau fichier

Amicalement

Nad

Salut,

Voici le fichier.

Ce que j'aimerai, c'est :

1 - le le code VB présent dans la feuille 2 le soit mais dans la feuille 1 (fiche d'inscription) car la 2eme est créé dynamiquement.

2 - Quelque soit la colonne sur la quel ont clic, il sait que que Ade ce numéro doit aller dans Fiche d'inscription!N12

Merci encore pour ton aide

PS : sais tu si je genre de code fonctionnera sous open office ?

Bonjour,

Un ptit up s'il vous plait