J'aimerais maintenant que si l'utilisateur écrit qqch dans une textbox, que
ca crée une nouvelle ligne et que ca écrit la valeur entrée dans la textbox
dans une celulle... voilà comment j'ai fait:
sub textbox ()
If TextBox1 <> "" Then
Rows("30:30").Select
Selection.Insert Shift:=xlDown
Rows("29:29").Select
Selection.Copy
Rows("30:30").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A30:C30").Select
ActiveCell.FormulaR1C1 = TextBox1.Text
With ActiveCell.Characters.Font
.Name = "MS Sans Serif"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A32").Select
End If
End sub
Si qqn pouvait m'aider, ca serait très sympa =)
Deuxième question: J'ai un problème car avec les macros des gens ne peuvent
pas utiliser mes documents (sauf en faisant une manip Outils> Macro>
Sécurité) car les macros ne sont pas signées... comment faut-il faire?
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
YeTi
J'ai réussi pour ma première question (j'ai oublié de renseigner la feuille concernée)
"YeTi" wrote:
Re bonsoir
J'aimerais maintenant que si l'utilisateur écrit qqch dans une textbox, que ca crée une nouvelle ligne et que ca écrit la valeur entrée dans la textbox dans une celulle... voilà comment j'ai fait:
sub textbox () If TextBox1 <> "" Then Rows("30:30").Select Selection.Insert Shift:=xlDown Rows("29:29").Select Selection.Copy Rows("30:30").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse Application.CutCopyMode = False Range("A30:C30").Select ActiveCell.FormulaR1C1 = TextBox1.Text With ActiveCell.Characters.Font .Name = "MS Sans Serif" .FontStyle = "Gras" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("A32").Select End If End sub
Si qqn pouvait m'aider, ca serait très sympa =)
Deuxième question: J'ai un problème car avec les macros des gens ne peuvent pas utiliser mes documents (sauf en faisant une manip Outils> Macro> Sécurité) car les macros ne sont pas signées... comment faut-il faire?
Merci d'avance à vous et désolé du dérangement
J'ai réussi pour ma première question (j'ai oublié de renseigner la feuille
concernée)
"YeTi" wrote:
Re bonsoir
J'aimerais maintenant que si l'utilisateur écrit qqch dans une textbox, que
ca crée une nouvelle ligne et que ca écrit la valeur entrée dans la textbox
dans une celulle... voilà comment j'ai fait:
sub textbox ()
If TextBox1 <> "" Then
Rows("30:30").Select
Selection.Insert Shift:=xlDown
Rows("29:29").Select
Selection.Copy
Rows("30:30").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False
Range("A30:C30").Select
ActiveCell.FormulaR1C1 = TextBox1.Text
With ActiveCell.Characters.Font
.Name = "MS Sans Serif"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A32").Select
End If
End sub
Si qqn pouvait m'aider, ca serait très sympa =)
Deuxième question: J'ai un problème car avec les macros des gens ne peuvent
pas utiliser mes documents (sauf en faisant une manip Outils> Macro>
Sécurité) car les macros ne sont pas signées... comment faut-il faire?
J'ai réussi pour ma première question (j'ai oublié de renseigner la feuille concernée)
"YeTi" wrote:
Re bonsoir
J'aimerais maintenant que si l'utilisateur écrit qqch dans une textbox, que ca crée une nouvelle ligne et que ca écrit la valeur entrée dans la textbox dans une celulle... voilà comment j'ai fait:
sub textbox () If TextBox1 <> "" Then Rows("30:30").Select Selection.Insert Shift:=xlDown Rows("29:29").Select Selection.Copy Rows("30:30").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse Application.CutCopyMode = False Range("A30:C30").Select ActiveCell.FormulaR1C1 = TextBox1.Text With ActiveCell.Characters.Font .Name = "MS Sans Serif" .FontStyle = "Gras" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Range("A32").Select End If End sub
Si qqn pouvait m'aider, ca serait très sympa =)
Deuxième question: J'ai un problème car avec les macros des gens ne peuvent pas utiliser mes documents (sauf en faisant une manip Outils> Macro> Sécurité) car les macros ne sont pas signées... comment faut-il faire?