Copier la valeur encodée dans une cellule définie par recherchev
Fermé
Kabref
Messages postés
2
Date d'inscription
mercredi 22 mars 2017
Statut
Membre
Dernière intervention
2 avril 2017
-
Modifié par Kabref le 22/03/2017 à 05:45
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 2 avril 2017 à 14:57
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 2 avril 2017 à 14:57
A voir également:
- Copier la valeur encodée dans une cellule définie par recherchev
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Copier une vidéo youtube - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
2 réponses
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
22 mars 2017 à 09:43
22 mars 2017 à 09:43
Bonjour,
Dans ta feuille 2 tu peux copier le code VBA suivant (mode d'emploi) et tu devrais obtenir ce que tu veux
Dans ta feuille 2 tu peux copier le code VBA suivant (mode d'emploi) et tu devrais obtenir ce que tu veux
Option Explicit
Dim avant As Variant
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.CountLarge > 1 Then Exit Sub
If Intersect(sel, Range("C:C")) Is Nothing Then Exit Sub
avant = sel.Formula
End Sub
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.CountLarge > 1 Then Exit Sub
If Intersect(sel, Range("C:C")) Is Nothing Then Exit Sub
Dim cel As Range
Set cel = Sheets(1).Columns(1).Find(Cells(sel.Row, 1), [A1], xlValues, xlWhole)
cel.Offset(0, 5).Value = sel.Value
Application.EnableEvents = False
sel.Formula = avant
Application.EnableEvents = True
End Sub
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
2 avril 2017 à 14:57
2 avril 2017 à 14:57
Bonjour,
Malheureusement je n'ai pas su faire fonctionner ta macro
Normalement, il te suffit de la copier dans ta feuille 2 pour que cela fonctionne, bien sûr, à condition que les macros soient autorisées dans excel.
Malheureusement je n'ai pas su faire fonctionner ta macro
Normalement, il te suffit de la copier dans ta feuille 2 pour que cela fonctionne, bien sûr, à condition que les macros soient autorisées dans excel.
2 avril 2017 à 08:09
Avec un peu de retard, désolé, je voulais te remercier pour ta réponse.
Malheureusement je n'ai pas su faire fonctionner ta macro, et vu l'urgence et l'importance de la situation, j'ai fait quelque chose de manuel pour l'instant.
J'essayerai de décortiquer ça par la suite quand le reste de mon fichier sera plus abouti.
Merci encore et bon weekend.