Je viens =E0 vous pour savoir comment l'on peut rapatirier la valeur de
la cellule A1 dans une textbox ou combobox ainsi que la couleur de la
cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox
et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate()
Range("A1").Select
Me.COUL =3D ActiveCell.Offset(0, 0).Value
Me.COUL =3D ActiveCell.Offset(0, 0).Interior.ColorIndex
End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais apr=E8s j'ai le num=E9ro de la couleur, et non
pas la Mise en forme.
Quelqun aurais t'il la solution ?
Avec mes remerciements.
Alex
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alex
On 1 oct, 23:04, Alex wrote:
Bonjour à tous,
Je viens à vous pour savoir comment l'on peut rapatirier la valeur de la cellule A1 dans une textbox ou combobox ainsi que la couleur de la cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate() Range("A1").Select Me.COUL = ActiveCell.Offset(0, 0).Value Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais après j'ai le numéro de la couleur, et no n pas la Mise en forme.
Quelqun aurais t'il la solution ? Avec mes remerciements. Alex
Re Bonjour à Tous, J'ajoute un point, je voudrais le texte et la couleur en simultané. Merci Alex
Ps : cf mon précédent msg : Aurait il
On 1 oct, 23:04, Alex <ale...@orange.fr> wrote:
Bonjour à tous,
Je viens à vous pour savoir comment l'on peut rapatirier la valeur de
la cellule A1 dans une textbox ou combobox ainsi que la couleur de la
cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox
et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate()
Range("A1").Select
Me.COUL = ActiveCell.Offset(0, 0).Value
Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex
End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais après j'ai le numéro de la couleur, et no n
pas la Mise en forme.
Quelqun aurais t'il la solution ?
Avec mes remerciements.
Alex
Re Bonjour à Tous,
J'ajoute un point, je voudrais le texte et la couleur en simultané.
Merci
Alex
Je viens à vous pour savoir comment l'on peut rapatirier la valeur de la cellule A1 dans une textbox ou combobox ainsi que la couleur de la cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate() Range("A1").Select Me.COUL = ActiveCell.Offset(0, 0).Value Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais après j'ai le numéro de la couleur, et no n pas la Mise en forme.
Quelqun aurais t'il la solution ? Avec mes remerciements. Alex
Re Bonjour à Tous, J'ajoute un point, je voudrais le texte et la couleur en simultané. Merci Alex
Ps : cf mon précédent msg : Aurait il
michdenis
Bonjour Alex,
Si tu veux récupérer le texte de la cellule A1 de la feuil1 dans un textbox de ton formulaire et avoir le fond de ton textbox de la même couleur que la cellule A1 de la feuil1
'--------------------------- With Me.Textbox1 .Value = Worksheets("Feuil1").Range("A1").Value .BackColor = Worksheets("Feuil1").Range("A1").Interior.Color End With '---------------------------
"Alex" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Je viens à vous pour savoir comment l'on peut rapatirier la valeur de la cellule A1 dans une textbox ou combobox ainsi que la couleur de la cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate() Range("A1").Select Me.COUL = ActiveCell.Offset(0, 0).Value Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais après j'ai le numéro de la couleur, et non pas la Mise en forme.
Quelqun aurais t'il la solution ? Avec mes remerciements. Alex
Bonjour Alex,
Si tu veux récupérer le texte de la cellule A1 de la feuil1
dans un textbox de ton formulaire et avoir le fond de
ton textbox de la même couleur que la cellule A1 de la feuil1
'---------------------------
With Me.Textbox1
.Value = Worksheets("Feuil1").Range("A1").Value
.BackColor = Worksheets("Feuil1").Range("A1").Interior.Color
End With
'---------------------------
"Alex" <alex-m@orange.fr> a écrit dans le message de groupe de discussion :
0982170d-c418-4d02-ac0e-4f8e250543ed@g23g2000yqh.googlegroups.com...
Bonjour à tous,
Je viens à vous pour savoir comment l'on peut rapatirier la valeur de
la cellule A1 dans une textbox ou combobox ainsi que la couleur de la
cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox
et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate()
Range("A1").Select
Me.COUL = ActiveCell.Offset(0, 0).Value
Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex
End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais après j'ai le numéro de la couleur, et non
pas la Mise en forme.
Quelqun aurais t'il la solution ?
Avec mes remerciements.
Alex
Si tu veux récupérer le texte de la cellule A1 de la feuil1 dans un textbox de ton formulaire et avoir le fond de ton textbox de la même couleur que la cellule A1 de la feuil1
'--------------------------- With Me.Textbox1 .Value = Worksheets("Feuil1").Range("A1").Value .BackColor = Worksheets("Feuil1").Range("A1").Interior.Color End With '---------------------------
"Alex" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Je viens à vous pour savoir comment l'on peut rapatirier la valeur de la cellule A1 dans une textbox ou combobox ainsi que la couleur de la cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate() Range("A1").Select Me.COUL = ActiveCell.Offset(0, 0).Value Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais après j'ai le numéro de la couleur, et non pas la Mise en forme.
Quelqun aurais t'il la solution ? Avec mes remerciements. Alex
michdenis
'--------------------------- With Me.Textbox1 .Value = Worksheets("Feuil1").Range("A1").Value .BackColor = Worksheets("Feuil1").Range("A1").Interior.Color .ForeColor = Worksheets("Feuil1").Range("A1").Font.Color End With '---------------------------
'---------------------------
With Me.Textbox1
.Value = Worksheets("Feuil1").Range("A1").Value
.BackColor = Worksheets("Feuil1").Range("A1").Interior.Color
.ForeColor = Worksheets("Feuil1").Range("A1").Font.Color
End With
'---------------------------
'--------------------------- With Me.Textbox1 .Value = Worksheets("Feuil1").Range("A1").Value .BackColor = Worksheets("Feuil1").Range("A1").Interior.Color .ForeColor = Worksheets("Feuil1").Range("A1").Font.Color End With '---------------------------
Alex
On 1 oct, 23:43, "michdenis" wrote:
Bonjour Alex,
Si tu veux r cup rer le texte de la cellule A1 de la feuil1 dans un textbox de ton formulaire et avoir le fond de ton textbox de la m me couleur que la cellule A1 de la feuil1
'--------------------------- With Me.Textbox1 .Value = Worksheets("Feuil1").Range("A1").Value .BackColor = Worksheets("Feuil1").Range("A1").Interior.Color End With '---------------------------
"Alex" a crit dans le message de groupe de discussion :
Bonjour tous,
Je viens vous pour savoir comment l'on peut rapatirier la valeur de la cellule A1 dans une textbox ou combobox ainsi que la couleur de la cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate() Range("A1").Select Me.COUL = ActiveCell.Offset(0, 0).Value Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais apr s j'ai le num ro de la couleur, et non pas la Mise en forme.
Quelqun aurais t'il la solution ? Avec mes remerciements. Alex
Merci Denis C'est super. Et si je veux la police le rapatriment de la mise en forme de la police "rayé" ? Tu me trouves toujours la solution, merci beaucoup. Alex
On 1 oct, 23:43, "michdenis" <michde...@hotmail.com> wrote:
Bonjour Alex,
Si tu veux r cup rer le texte de la cellule A1 de la feuil1
dans un textbox de ton formulaire et avoir le fond de
ton textbox de la m me couleur que la cellule A1 de la feuil1
'---------------------------
With Me.Textbox1
.Value = Worksheets("Feuil1").Range("A1").Value
.BackColor = Worksheets("Feuil1").Range("A1").Interior.Color
End With
'---------------------------
"Alex" <ale...@orange.fr> a crit dans le message de groupe de discussion :
0982170d-c418-4d02-ac0e-4f8e25054...@g23g2000yqh.googlegroups.com...
Bonjour tous,
Je viens vous pour savoir comment l'on peut rapatirier la valeur de
la cellule A1 dans une textbox ou combobox ainsi que la couleur de la
cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox
et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate()
Range("A1").Select
Me.COUL = ActiveCell.Offset(0, 0).Value
Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex
End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais apr s j'ai le num ro de la couleur, et non
pas la Mise en forme.
Quelqun aurais t'il la solution ?
Avec mes remerciements.
Alex
Merci Denis C'est super. Et si je veux la police le rapatriment de la
mise en forme de la police "rayé" ?
Tu me trouves toujours la solution, merci beaucoup.
Alex
Si tu veux r cup rer le texte de la cellule A1 de la feuil1 dans un textbox de ton formulaire et avoir le fond de ton textbox de la m me couleur que la cellule A1 de la feuil1
'--------------------------- With Me.Textbox1 .Value = Worksheets("Feuil1").Range("A1").Value .BackColor = Worksheets("Feuil1").Range("A1").Interior.Color End With '---------------------------
"Alex" a crit dans le message de groupe de discussion :
Bonjour tous,
Je viens vous pour savoir comment l'on peut rapatirier la valeur de la cellule A1 dans une textbox ou combobox ainsi que la couleur de la cellule Blanc si blanc Jaune si jaune ...
Pour faire rapide, j'ai simplement fait un userform avec une textbox et dans userform_activate, j'ai mis :
Private Sub UserForm_Activate() Range("A1").Select Me.COUL = ActiveCell.Offset(0, 0).Value Me.COUL = ActiveCell.Offset(0, 0).Interior.ColorIndex End Sub
Ma cellule A1
Bonjour sur fond vert
J'ai bien mon Bonjour, mais apr s j'ai le num ro de la couleur, et non pas la Mise en forme.
Quelqun aurais t'il la solution ? Avec mes remerciements. Alex
Merci Denis C'est super. Et si je veux la police le rapatriment de la mise en forme de la police "rayé" ? Tu me trouves toujours la solution, merci beaucoup. Alex
Non, Ceci fait la mise en forme "rayé", mais cela n'identifi pas si la cellule à une mise en forme rayé ou pas (comme pour la couleur).
Essart
Bonjour,
Il suffit d'ajouter la condition juste avant, comme ceci pour un texte dans la cellule A1 :
If Cells(1, 1).Font.Strikethrough = True Then MsgBox "texte barré détecté" Me.TextBox1.Font.Strikethrough = True ... end if
Essart
"Alex" a écrit dans le message de news:
On 2 oct, 00:18, "michdenis" wrote:
la mise en forme de la police "rayé" ?
Me.TextBox1.Font.Strikethrough = True
Non, Ceci fait la mise en forme "rayé", mais cela n'identifi pas si la cellule à une mise en forme rayé ou pas (comme pour la couleur).
Bonjour,
Il suffit d'ajouter la condition juste avant, comme ceci pour un texte dans
la cellule A1 :
If Cells(1, 1).Font.Strikethrough = True Then
MsgBox "texte barré détecté"
Me.TextBox1.Font.Strikethrough = True
...
end if
Essart
"Alex" <alex-m@orange.fr> a écrit dans le message de news:
4841e7ca-8f18-4ccb-a5de-42be8499e078@m38g2000yqd.googlegroups.com...
On 2 oct, 00:18, "michdenis" <michde...@hotmail.com> wrote:
la mise en forme de la police "rayé" ?
Me.TextBox1.Font.Strikethrough = True
Non, Ceci fait la mise en forme "rayé", mais cela n'identifi pas si la
cellule à une mise en forme rayé ou pas (comme pour la couleur).