Quel imbécile je suis! lol! J'avais écrit tout le reste de mon code avec le Controls!
Merci beaucoup!
Bonjour
"TextBox" & i ne correspond pas à un Textbox (objet), mais à une chaîne de caractère.
Par conséquent "TextBox" & i.Text provoque une erreur
il faut remplacer en ligne 2 et 5 "TextBox" & i par Controls("TextBox" & i)
Bonjour,
Je rencontre une erreur dans ce bout de code:
For i = 1 To 33 If "TextBox" & i <> "" Then Sheets("Notes").Select Cells(i + 3, 1).Select ActiveCell.FormulaR1C1 = "TextBox" & i.Text End If Next i
L'erreur se situe à la 5ème ligne : "ActiveCell.FormulaR1C1 = "TextBox" & i.Text"
Pouvez-vous m'aider svp?
-- Cordialement,
Michel Gaboly www.gaboly.com
YeTi
Oui, merci, mais Michel a été plus rapide que toi!
Par contre j'ai de nouveau une erreur dans ce code:
For i = 1 To 33 If Me.Controls("TextBox" & i) = "" Then Sheets("Notes").Select Rows(i + 3, 1).Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone End If Next i
L'erreur se situe à la 4ème ligne "Rows(i + 3, 1).Select"
Une petite aide?
Bonjour Yeti,
Peux-tu essayer Me.Controls("TextBox" & i) à la place de "TextBox" & i ?
Je pense que ça peut provenir de cette instruction.
Bon courage.
Philippe
Bonjour,
Je rencontre une erreur dans ce bout de code:
For i = 1 To 33 If "TextBox" & i <> "" Then Sheets("Notes").Select Cells(i + 3, 1).Select ActiveCell.FormulaR1C1 = "TextBox" & i.Text End If Next i
L'erreur se situe à la 5ème ligne : "ActiveCell.FormulaR1C1 = "TextBox" & i.Text"
Pouvez-vous m'aider svp?
Oui, merci, mais Michel a été plus rapide que toi!
Par contre j'ai de nouveau une erreur dans ce code:
For i = 1 To 33
If Me.Controls("TextBox" & i) = "" Then
Sheets("Notes").Select
Rows(i + 3, 1).Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
End If
Next i
L'erreur se situe à la 4ème ligne
"Rows(i + 3, 1).Select"
Une petite aide?
Bonjour Yeti,
Peux-tu essayer Me.Controls("TextBox" & i) à la place de "TextBox" & i ?
Je pense que ça peut provenir de cette instruction.
Bon courage.
Philippe
Bonjour,
Je rencontre une erreur dans ce bout de code:
For i = 1 To 33
If "TextBox" & i <> "" Then
Sheets("Notes").Select
Cells(i + 3, 1).Select
ActiveCell.FormulaR1C1 = "TextBox" & i.Text
End If
Next i
L'erreur se situe à la 5ème ligne :
"ActiveCell.FormulaR1C1 = "TextBox" & i.Text"
Oui, merci, mais Michel a été plus rapide que toi!
Par contre j'ai de nouveau une erreur dans ce code:
For i = 1 To 33 If Me.Controls("TextBox" & i) = "" Then Sheets("Notes").Select Rows(i + 3, 1).Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone End If Next i
L'erreur se situe à la 4ème ligne "Rows(i + 3, 1).Select"
Une petite aide?
Bonjour Yeti,
Peux-tu essayer Me.Controls("TextBox" & i) à la place de "TextBox" & i ?
Je pense que ça peut provenir de cette instruction.
Bon courage.
Philippe
Bonjour,
Je rencontre une erreur dans ce bout de code:
For i = 1 To 33 If "TextBox" & i <> "" Then Sheets("Notes").Select Cells(i + 3, 1).Select ActiveCell.FormulaR1C1 = "TextBox" & i.Text End If Next i
L'erreur se situe à la 5ème ligne : "ActiveCell.FormulaR1C1 = "TextBox" & i.Text"
Pouvez-vous m'aider svp?
YeTi
C'est bon... j'ai trouvé!
J'ai vraiment pas les yeux en face des trous! lol!
Code juste:
For i = 1 To 33 If Me.Controls("TextBox" & i) = "" Then Sheets("Notes").Select Rows(i + 3).Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone End If Next i
Oui, merci, mais Michel a été plus rapide que toi!
Par contre j'ai de nouveau une erreur dans ce code:
For i = 1 To 33 If Me.Controls("TextBox" & i) = "" Then Sheets("Notes").Select Rows(i + 3, 1).Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone End If Next i
L'erreur se situe à la 4ème ligne "Rows(i + 3, 1).Select"
Une petite aide?
Bonjour Yeti,
Peux-tu essayer Me.Controls("TextBox" & i) à la place de "TextBox" & i ?
Je pense que ça peut provenir de cette instruction.
Bon courage.
Philippe
Bonjour,
Je rencontre une erreur dans ce bout de code:
For i = 1 To 33 If "TextBox" & i <> "" Then Sheets("Notes").Select Cells(i + 3, 1).Select ActiveCell.FormulaR1C1 = "TextBox" & i.Text End If Next i
L'erreur se situe à la 5ème ligne : "ActiveCell.FormulaR1C1 = "TextBox" & i.Text"
Pouvez-vous m'aider svp?
C'est bon... j'ai trouvé!
J'ai vraiment pas les yeux en face des trous! lol!
Code juste:
For i = 1 To 33
If Me.Controls("TextBox" & i) = "" Then
Sheets("Notes").Select
Rows(i + 3).Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
End If
Next i
Oui, merci, mais Michel a été plus rapide que toi!
Par contre j'ai de nouveau une erreur dans ce code:
For i = 1 To 33
If Me.Controls("TextBox" & i) = "" Then
Sheets("Notes").Select
Rows(i + 3, 1).Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
End If
Next i
L'erreur se situe à la 4ème ligne
"Rows(i + 3, 1).Select"
Une petite aide?
Bonjour Yeti,
Peux-tu essayer Me.Controls("TextBox" & i) à la place de "TextBox" & i ?
Je pense que ça peut provenir de cette instruction.
Bon courage.
Philippe
Bonjour,
Je rencontre une erreur dans ce bout de code:
For i = 1 To 33
If "TextBox" & i <> "" Then
Sheets("Notes").Select
Cells(i + 3, 1).Select
ActiveCell.FormulaR1C1 = "TextBox" & i.Text
End If
Next i
L'erreur se situe à la 5ème ligne :
"ActiveCell.FormulaR1C1 = "TextBox" & i.Text"
J'ai vraiment pas les yeux en face des trous! lol!
Code juste:
For i = 1 To 33 If Me.Controls("TextBox" & i) = "" Then Sheets("Notes").Select Rows(i + 3).Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone End If Next i
Oui, merci, mais Michel a été plus rapide que toi!
Par contre j'ai de nouveau une erreur dans ce code:
For i = 1 To 33 If Me.Controls("TextBox" & i) = "" Then Sheets("Notes").Select Rows(i + 3, 1).Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone End If Next i
L'erreur se situe à la 4ème ligne "Rows(i + 3, 1).Select"
Une petite aide?
Bonjour Yeti,
Peux-tu essayer Me.Controls("TextBox" & i) à la place de "TextBox" & i ?
Je pense que ça peut provenir de cette instruction.
Bon courage.
Philippe
Bonjour,
Je rencontre une erreur dans ce bout de code:
For i = 1 To 33 If "TextBox" & i <> "" Then Sheets("Notes").Select Cells(i + 3, 1).Select ActiveCell.FormulaR1C1 = "TextBox" & i.Text End If Next i
L'erreur se situe à la 5ème ligne : "ActiveCell.FormulaR1C1 = "TextBox" & i.Text"
