Remplir zone de texte

[Adriano43]

Bonjour le forum,

Je reviens vers vous car je suis confronté à un problème dont je ne sais pas s'il est existe une solution...
Je souhaite à l'aide de vba remplir des zones de textes situées sur feuille sous conditions.
Ex: La ligne 8 correspond à A
Il faudrait afficher la valeur de la cellule 9 ligne 8 dans la zone de texte A
Ci joint un fichier exemple

Cordialement

Adriano43

 

[Guest]

Re : Remplir zone de texte

Bonjour,

Cliquer dans la zone de texte pour la mettre en mode édition puis dans la barre de formule taper: =$J$8 puis valider

A+

 

[Adriano43]

Re : Remplir zone de texte

Bonjour Hasco,

Merci de votre réponse mais ma demande n'est pas tout à fait celle-là puisque la cellule devant s'inscrire dans la zone de texte n'est pas figée sur la ligne. Donc la zone de texte à remplir porte le même nom que la cellule de la colonne A et la valeur à afficher est la colonne J de cette même ligne, m'avez vous compris???😕

 

[Guest]

Re : Remplir zone de texte

Re,

Non. Essaie d'expliquer différement en exposant quelques cas de figures possibles. Et rejoins un fichier avec le résultat souhaité.

A+

 

[Adriano43]

Re : Remplir zone de texte

Re,

Ok je vais vous refaire un autre petit fichier exemple. Je vous réexplique en attendant:
1- La macro parcourt la matrice de la ligne 2 à la dernière non vide.
2- Dès qu'une ligne est surlignée en rouge, elle retient la valeur contenue en colonne A de la ligne
3- Elle recherche la zone de texte du même nom
4- Elle affiche la valeur de la ligne en question colonne J dans l'exemple fournie

Je vous prépare le fichier de suite

Merci encore

 

[Guest]

Re : Remplir zone de texte

Re,

Sauf que dans ton exemple toutes les zones de texte ont le même non et que en A8 il n'y a rien!

A+

 

[Adriano43]

Re : Remplir zone de texte

Voici le fichier exemple.

Merci de votre aide

Cordialement

Adriano43

 

[pierrejean]

Re : Remplir zone de texte

Bonjour Adriano

En supposant avoir compris

Edit: Salut Hasco

 

[Adriano43]

Re : Remplir zone de texte

Bonjour Pierrejean, Re hasco

Vous avez bien compris!!! Cependant n'est'il pas possible d'inscrire la valeur dans une zone de texte qui je pense n'est pas attachée" à une cellule comme le sont les rectangles. Car dans le fichier réel, les zones de texte sont placées sur une image
De même au lieu de rajouter un nouveau rectangle à chaque éxécution, peut on modifier la valeur contenue uniquement?

Merci de votre aide à tous les deux

Cordialement

Adriano43

 

[Guest]

Re : Remplir zone de texte

Re,

Voili, voilou,

Sub remplir()
    Dim i As Integer
    Dim shp As Shape
    With Feuil1
    For i = 2 To .Range("j" & Rows.Count).End(xlUp).Row
        If .Cells(i, 1).Interior.ColorIndex = 3 And .Cells(i, 1) <> "" Then
            On Error Resume Next
            Set shp = .Shapes(.Cells(i, 1))
            If Not shp Is Nothing Then shp.OLEFormat.Object.Text = Format(.Cells(i, 10), "0.00")
        
        End If
     Next
     End With
End Sub

A+
Grand bonjour Pierre-Jean🙂

 

[Adriano43]

Re : Remplir zone de texte

Re tous les deux,

Je vais tester votre proposition Hasco et vous tiendrai informé je pense dans l'après-midi.
Je vous remercie par avance de votre aide.

Cordialement

Adriano43

 

[Adriano43]

Re : Remplir zone de texte

Re Hasco,

J'ai mis votre code dans mon fichier en adaptant les noms de feuille et numéro de colonne mais rien ne se passe...
Voici le code pour info

Sub remplir()
    Dim i As Integer
    Dim shp As Shape
    
    With Sheets("BDD")
    For i = 2 To .Range("Q" & Rows.Count).End(xlUp).Row
        If .Cells(i, 1).Interior.ColorIndex = 3 And .Cells(i, 1) <> "" Then
            On Error Resume Next
            Set shp = .Shapes(.Cells(i, 1))
            If Not shp Is Nothing Then shp.OLEFormat.Object.Text = Format(.Cells(i, 10), "0.00")
        
        End If
     Next i
     End With
End Sub

Cordialement

Adriano43

 

[Adriano43]

Re : Remplir zone de texte

Voici le fichier test qui visiblement ne fonctionne pas comme souhaité....😕

 

[Guest]

Re : Remplir zone de texte

Re,

As tu lancé la macro 'Remplir' au moins?

A+

 

[Adriano43]

Re : Remplir zone de texte

Re,

Merci de cette précision mais oui je l'ai lancée...🙄 !!!
Mais changer le nom de la 1ère zone de texte en E par exemple, lancez la macro et observez les résultats... Ils ne correspondent plus à leurs références d'origine??...😕