Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Afficher dans la feuille active la cellule de la Feuille "Appels" qui est à droite de sa cellule active

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite un bon match et une bonne fin de journée

Je bute encore sur un code que je ne parviens pas à faire :

Dans ma feuille active cellule "E13", j'ai besoin que le code m'affiche la cellule de la Feuille "Appels" qui est à droite de sa cellule active

Dans mon exemple, "G6" est la cellule active feuille "Appels" et je voudrais comme résultat en Feuil1 "Bonjour le Forum et ALLEZ LES BLEUS"

J'ai des recherches et un tas de tests mais je n'y arrive pas
Auriez-vous le bon code ,
En cas, je joins un p'tit fichier test.

Je vous remercie vraiment et je continue mes recherches.
Amicalement,
lionel
 

Pièces jointes

  • code_test2.xlsm
    19 KB · Affichages: 7
Solution
Bonjour Lionel

Comme cela ça ira mieux
VB: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("e13")) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    [a1] = ""
    [e13] = ""
    Sheets("Appels").Activate
    toprint = ActiveCell.Offset(0, 1)
    Sheets("Feuil1").Activate
    ActiveCell = toprint
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
    If MsgBox("RdV possible ?" & Chr(10) & Chr(10) & "Si Répondeur et appel avant = RdV possible, répondre OUI" & Chr(10) & Chr(10) & "Clic : OUI   ou    NON", vbQuestion + vbYesNo) <> vbNo Then
        Sheets("Feuil1").Range("a1") = "Rappel RdV"
    End If
    [a1].Select
End If
End...
Trier par date Trier par votes

vgendron

XLDnaute Barbatruc
hello
pas sur de pouvoir acceder à la cellule "active" d'une feuille qui ne l'est pas...
en contournant le pb..
VB: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(R, Range("e13")) Is Nothing Then
    Sheets("Appels").Activate
    toprint = ActiveCell.Offset(0, 1)
    Sheets("Feuil1").Activate
    ActiveCell = toprint
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bonsoir vgendron, le Forum,

J'ai un problème que je n'avais pas prévu
voici le code :
VB: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
    If Not Intersect(R, Range("e13")) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    [a1] = ""
    [e13] = ""
    Sheets("Appels").Activate
    toprint = ActiveCell.Offset(0, 1)
    Sheets("Feuil1").Activate
    ActiveCell = toprint

        If MsgBox("RdV possible ?" & Chr(10) & Chr(10) & "Si Répondeur et appel avant = RdV possible, répondre  OUI" & Chr(10) & Chr(10) & "Clic : OUI   ou    NON", vbQuestion + vbYesNo) <> vbNo Then
        Sheets("Feuil1").Range("a1") = "Rappel RdV"
        End If
        [a1].Select
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        End If
End Sub

Avant l'exécution du code ci-dessous, J'ai besoin de voir le texte de la cellule de la Feuille "Appels" qui est à droite de sa cellule active.
Code: 
If MsgBox("RdV possible ?" & Chr(10) & Chr(10) & "Si Répondeur et appel avant = RdV possible, répondre OUI" & Chr(10) & Chr(10) & "Clic : OUI   ou    NON", vbQuestion + vbYesNo) <> vbNo Then
        Sheets("Feuil1").Range("a1") = "Rappel RdV"
End If

- Quand j'exécute pas à pas, c'est bon.
- Quand je lance la macro en cliquant cellule "E13", ça ne fonctionne pas, le code s'exécute avant la 1ère partie.

Je n'arrive pas à comprendre.
Pourriez-vous m'aider ?
Je joins le fichier test.
Un grand merci,
lionel,
 

Pièces jointes

  • code_test3.xlsm
    20.3 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour Lionel

Comme cela ça ira mieux
VB: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("e13")) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    [a1] = ""
    [e13] = ""
    Sheets("Appels").Activate
    toprint = ActiveCell.Offset(0, 1)
    Sheets("Feuil1").Activate
    ActiveCell = toprint
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
    If MsgBox("RdV possible ?" & Chr(10) & Chr(10) & "Si Répondeur et appel avant = RdV possible, répondre OUI" & Chr(10) & Chr(10) & "Clic : OUI   ou    NON", vbQuestion + vbYesNo) <> vbNo Then
        Sheets("Feuil1").Range("a1") = "Rappel RdV"
    End If
    [a1].Select
End If
End Sub
@Phil69970
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
454
Nel'
N
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
162
AlCapone
  • Question
Microsoft 365 [Résolu] | Ribbon | Afficher/Masquer le Ruban selon la feuille active
Réponses
9
Affichages
669
patricktoulon
A
  • Question
Microsoft 365 recherche multicritère de la valeur suivante
2
Réponses
29
Affichages
886
alexga78
A
N
  • Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
166
NONO14
N
  • Résolu(e)
XL 2021 copier en B7 la valeur de la cellule active (Cells(ActiveCell.Row, 7)) de la feuille "Appels"
Réponses
12
Affichages
506
Usine à gaz
A
  • Résolu(e)
XL 2016 Compteur de dates de la semaine active
2 3
Réponses
30
Affichages
2 K
TooFatBoy
  • Question
XL 2021 [Résolu] : Récupérer les coordonnées d'une cellule sur une feuille créée dynamiquement
Réponses
3
Affichages
521
Zdz16
I
  • Résolu(e)
XL 2021 Somme cellule a droite du critère 1 ligne plusieurs colonnes
Réponses
5
Affichages
187
Idealnight
I
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
434
Faroyo
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…