J'ai un userform dans lequel j'ai 2 contr=F4les
1 textbox pour saisir quelquechose (bo=EEte_saisie)
1 refedit pour s=E9lectionner une cellule dans ma feuille de calcul
(S=E9lection-cellule).
et 1 bouton OK
Je n'arrive pas =E0 trouver la proc=E9dure pour coller dans la cellule
s=E9lectionn=E9e par le refedit ce que j'ai sais dans ma textbox.
si je fais par exemple
range("A10").value=3Dme.bo=EEte_saisie.value cela marche
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
JLuc
*Bonjour C15*, Essaie comme ca : Private Sub CommandButton1_Click() feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1) cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _ "!", vbTextCompare)) Sheets(feuille).Range(cellule) = TextBox1 End Sub
Bonjour à tous et toutes,
J'ai un userform dans lequel j'ai 2 contrôles 1 textbox pour saisir quelquechose (boîte_saisie) 1 refedit pour sélectionner une cellule dans ma feuille de calcul (Sélection-cellule).
et 1 bouton OK
Je n'arrive pas à trouver la procédure pour coller dans la cellule sélectionnée par le refedit ce que j'ai sais dans ma textbox. si je fais par exemple range("A10").value=me.boîte_saisie.value cela marche
mais je voudrais donc le faire n'importe.
Merci de votre aide
A+
C15
.
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour C15*,
Essaie comme ca :
Private Sub CommandButton1_Click()
feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1)
cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _
"!", vbTextCompare))
Sheets(feuille).Range(cellule) = TextBox1
End Sub
Bonjour à tous et toutes,
J'ai un userform dans lequel j'ai 2 contrôles
1 textbox pour saisir quelquechose (boîte_saisie)
1 refedit pour sélectionner une cellule dans ma feuille de calcul
(Sélection-cellule).
et 1 bouton OK
Je n'arrive pas à trouver la procédure pour coller dans la cellule
sélectionnée par le refedit ce que j'ai sais dans ma textbox.
si je fais par exemple
range("A10").value=me.boîte_saisie.value cela marche
*Bonjour C15*, Essaie comme ca : Private Sub CommandButton1_Click() feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1) cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _ "!", vbTextCompare)) Sheets(feuille).Range(cellule) = TextBox1 End Sub
Bonjour à tous et toutes,
J'ai un userform dans lequel j'ai 2 contrôles 1 textbox pour saisir quelquechose (boîte_saisie) 1 refedit pour sélectionner une cellule dans ma feuille de calcul (Sélection-cellule).
et 1 bouton OK
Je n'arrive pas à trouver la procédure pour coller dans la cellule sélectionnée par le refedit ce que j'ai sais dans ma textbox. si je fais par exemple range("A10").value=me.boîte_saisie.value cela marche
mais je voudrais donc le faire n'importe.
Merci de votre aide
A+
C15
.
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
C15
Bonjour,
C'est avec pas mal de retard que je te réponds, désolé.
Merci cela marche impeccable...même si je n'ai pas tout compris de ta procédure
A+
C15
*Bonjour C15*, Essaie comme ca : Private Sub CommandButton1_Click() feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1) cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _ "!", vbTextCompare)) Sheets(feuille).Range(cellule) = TextBox1 End Sub
Bonjour à tous et toutes,
J'ai un userform dans lequel j'ai 2 contrôles 1 textbox pour saisir quelquechose (boîte_saisie) 1 refedit pour sélectionner une cellule dans ma feuille de calcul (Sélection-cellule).
et 1 bouton OK
Je n'arrive pas à trouver la procédure pour coller dans la cellule sélectionnée par le refedit ce que j'ai sais dans ma textbox. si je fais par exemple range("A10").value=me.boîte_saisie.value cela marche
mais je voudrais donc le faire n'importe.
Merci de votre aide
A+
C15
.
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Bonjour,
C'est avec pas mal de retard que je te réponds, désolé.
Merci cela marche impeccable...même si je n'ai pas tout compris de ta
procédure
A+
C15
*Bonjour C15*,
Essaie comme ca :
Private Sub CommandButton1_Click()
feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1)
cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _
"!", vbTextCompare))
Sheets(feuille).Range(cellule) = TextBox1
End Sub
Bonjour à tous et toutes,
J'ai un userform dans lequel j'ai 2 contrôles
1 textbox pour saisir quelquechose (boîte_saisie)
1 refedit pour sélectionner une cellule dans ma feuille de calcul
(Sélection-cellule).
et 1 bouton OK
Je n'arrive pas à trouver la procédure pour coller dans la cellule
sélectionnée par le refedit ce que j'ai sais dans ma textbox.
si je fais par exemple
range("A10").value=me.boîte_saisie.value cela marche
C'est avec pas mal de retard que je te réponds, désolé.
Merci cela marche impeccable...même si je n'ai pas tout compris de ta procédure
A+
C15
*Bonjour C15*, Essaie comme ca : Private Sub CommandButton1_Click() feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1) cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _ "!", vbTextCompare)) Sheets(feuille).Range(cellule) = TextBox1 End Sub
Bonjour à tous et toutes,
J'ai un userform dans lequel j'ai 2 contrôles 1 textbox pour saisir quelquechose (boîte_saisie) 1 refedit pour sélectionner une cellule dans ma feuille de calcul (Sélection-cellule).
et 1 bouton OK
Je n'arrive pas à trouver la procédure pour coller dans la cellule sélectionnée par le refedit ce que j'ai sais dans ma textbox. si je fais par exemple range("A10").value=me.boîte_saisie.value cela marche
mais je voudrais donc le faire n'importe.
Merci de votre aide
A+
C15
.
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
Bonjour,
C'est avec pas mal de retard que je te réponds, désolé.
Merci cela marche impeccable...même si je n'ai pas tout compris de ta procédure
A+
C15
*Bonjour C15*, Essaie comme ca : Private Sub CommandButton1_Click() feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1) cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _ "!", vbTextCompare)) Sheets(feuille).Range(cellule) = TextBox1 End Sub
Avec un refedit, tu recuperes : Feuil1!$A$1 (par exemple)
Donc, pour la feuille, je prends la gauche de la valeur jusqu'a "!" -1 pour la cellule je prends la droite a partir du caractere "!" +1 Et le tour est jouer
-- JLuc
Bonjour,
C'est avec pas mal de retard que je te réponds, désolé.
Merci cela marche impeccable...même si je n'ai pas tout compris de ta
procédure
A+
C15
*Bonjour C15*,
Essaie comme ca :
Private Sub CommandButton1_Click()
feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1)
cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _
"!", vbTextCompare))
Sheets(feuille).Range(cellule) = TextBox1
End Sub
Avec un refedit, tu recuperes : Feuil1!$A$1 (par exemple)
Donc, pour la feuille, je prends la gauche de la valeur jusqu'a "!" -1
pour la cellule je prends la droite a partir du caractere "!" +1
Et le tour est jouer
C'est avec pas mal de retard que je te réponds, désolé.
Merci cela marche impeccable...même si je n'ai pas tout compris de ta procédure
A+
C15
*Bonjour C15*, Essaie comme ca : Private Sub CommandButton1_Click() feuille = Left(RefEdit1, InStr(1, RefEdit1, "!", vbTextCompare) - 1) cellule = Right(RefEdit1, Len(RefEdit1) - InStr(1, RefEdit1, _ "!", vbTextCompare)) Sheets(feuille).Range(cellule) = TextBox1 End Sub
Avec un refedit, tu recuperes : Feuil1!$A$1 (par exemple)
Donc, pour la feuille, je prends la gauche de la valeur jusqu'a "!" -1 pour la cellule je prends la droite a partir du caractere "!" +1 Et le tour est jouer
