Question excel

Résolu
tchernosplif Messages postés 714 Statut Membre -  
tchernosplif Messages postés 714 Statut Membre -
Bonjour,

Je voudrais qu'une cellule d'un tableau excel change (en temps réel) en fonction de la cellule active.

Par exemple, je voudrais que la cellule A1 soit égale à la valeur de B12 si la cellule active est B11

A1 soit égale à la valeur de B22 si la cellule active est B21
A1 soit égale à la valeur de B37 si la cellule active est B36
A1 soit égale à la valeur de B9999 si la cellule active est B9998

.....

Dois-je faire une macro (activecell.value; offset ...) ou puisje utiliser une formule ?
Configuration: Windows Vista Internet Explorer 7.0

7 réponses

  1.
    Farfadet88 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   1 402
     
    [a1] = ActiveCell.Value (c'est une macro)
    0
  2. tchernosplif Messages postés 714 Statut Membre 249
     
    Merci de l'intéret porté à ma question

    j'ai essayé cette macro, ça ne fonctionne pas, la cellule A1 reste vierge

    sub toto()
    [a1] = ActiveCell.Value
    End Sub

    en revanche, ça fonctionne si j'attribue cette macro à un bouton, par contre il manque toujours l'offset d'1 case
    0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour 

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1:B65535")) Is Nothing Then: Exit Sub
Range("A1") = Target.Offset(1, 0)
End Sub


    fait un copier de cette macro événementielle
    clic droit sur l'onglet de la feuille concernée
    visualiser le code
    coller
    0
  4. tchernosplif Messages postés 714 Statut Membre 249
     
    ca fonctionne merci beaucoup, par contre je me suis trompé dans mon exemple

    A1 égale la valeur de droite de la cellule active

    si la cellule active est C11 alors A1 est égale à D11
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    regarde cette démo et clique dans la colonne B (tant qu'il y a quelque chose de marqué)
    https://www.cjoint.com/?mxrckdUD8p
    0
  7. tchernosplif Messages postés 714 Statut Membre 249
     
    merci beaucoup michel, ça fonctionne, ton aide m'a été d'un grand secours, je te remercie

    voila la macro que j'utilise finalement:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B2:Z65535")) Is Nothing Then: Exit Sub
    Range("A1") = Target.Offset(0, 1)
    End Sub

    MERCI
    0
  8. tchernosplif Messages postés 714 Statut Membre 249
     
    finalement j'utilise cette macro qui évite un bug lorsque on sélectionne une ligne ou une colonne (je n'ai pas besoin de cellules fusionnées)

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("D11:N65535")) Is Nothing Then: Exit Sub
    If Target.Cells.Count > 1 Then: Exit Sub
    Range("B8").Value = Target.Offset(0, 1).Value
    End Sub
    0