Suite de "Dans USF affiche le bon résultat à la 2ème tentavive"

[marcelio]

Bonjour le Forum,
Après m'avoir aider pour l'actualisation de la cellule I1 dans mon dernier post, je reviens vers vous.
" Dans USF affiche le bon résultat à la 2ème tentative "
Pour avancer dans mon fichier j'ai ajouter une 2ème cellule à actualiser.
La cellule N1, j'ai tester plusieurs solution mais rien à faire je n'y arrive pas.
Dernier code tester :
If Not Intersect(Target, [Q13:Q22]) Is Nothing Then Feuil2.Range("I1") = Target.Offset(0, -9): Feuil2.Range("N1") = Target.Offset(0, -14)
Mais celui-ci ne fonctionne pas.
Si vous avez une solution je suis preneur,merci d'avance de votre aide
Marcelio

 

[CHALET53]

Re : Suite de "Dans USF affiche le bon résultat à la 2ème tentavive"

bonjour,

A priori : normal tu n'as rien dans la colonne C qui correspond à Target.Offset(0, -14)
J'ai mis une valeur et ça marche

a+

 

[CHALET53]

Re : Suite de "Dans USF affiche le bon résultat à la 2ème tentavive"

Re,

La procédure suivante serait peut-être plus appropriée :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [Q13:Q22]) Is Nothing Then Feuil2.Range("I1") = Target.Offset(0, -9): Feuil2.Range("N1") = Target.Offset(0, -14)

End Sub

 

[youky(BJ)]

Re : Suite de "Dans USF affiche le bon résultat à la 2ème tentavive"

Bonjour tous,
Je pense que la feuille recap n'est pas calculer pendant la macro.
J'ai supprimé l'initialize et tout rassemblé en activate
Voici la macro Activate

Private Sub UserForm_Activate()
     Dim lig As Byte, Chaine_Comment As String
     
     If Flag_RTCal Then Exit Sub
     With Worksheets(Nom_Onglet)
        If Not (.Range(AdCel).Comment) Is Nothing Then
            


    End If
        lig = .Range(AdCel).Row
        TextBox3 = .Range("H" & lig)
        TextBox4 = .Range("V" & lig)
    
    End With
Range("Recap!I1").Value = TextBox3.Value
Range("Recap!N1").Value = TextBox4.Value
Feuil2.Calculate
TextBox33.Value = Range("Recap!J3").Value
TextBox34.Value = Range("Recap!K3").Value
TextBox48.Value = Range("Recap!O3").Value
TextBox49.Value = Range("Recap!P3").Value
End Sub

J'ai pas trop compris la 2ème question
Bruno

 

[marcelio]

Re : Suite de "Dans USF affiche le bon résultat à la 2ème tentavive"

Bonjour CHALET53,
Excuse moi mais Target.Offset(0, -14) correspond à N et non pas à C dans la feuille Recap.
J'ai tester ton code et celui ci ne fonctionne pas.
Il faut toujours cliquer 2 fois sur la même cellule pour avoir le bon résultat.
Si tu à une autre idée.
Merci
Marcelio

 

[CHALET53]

Re : Suite de "Dans USF affiche le bon résultat à la 2ème tentavive"

If Not Intersect(Target, [Q13:Q22]) Is Nothing Then Feuil2.Range("I1") = Target.Offset(0, -9): Feuil2.Range("N1") = Target.Offset(0, -14)
Si Q13:Q22 est sur la feuille menu : la cible Target étant sur la feuille menu, Target.Offset(0,-14) est en colonne C de cette feuille et tu veux le caser en N1 de Récap

 

[marcelio]

Re : Suite de "Dans USF affiche le bon résultat à la 2ème tentavive"

Messieurs,
Je teste le code de Bruno et vous tiens au courant.
Merci de votre aide
Marcelio

 

[marcelio]

Re : Suite de "Dans USF affiche le bon résultat à la 2ème tentavive"

Re bonjour CHALET53, Bruno et le Forum,
Après avoir testé le code sur mon fichier original,celui ci fonctionne à merveille.
Merci Bruno pour ce code.
Merci aussi à CHALET53.
Bonne journée à vous 2 et au Forum.
Marcelio