Discussion :

[coronadoj]

Bonjour,

Je travaille sur ce fichier depuis longtemps et quand je lance la macro je reçois une erreur qui dit "La méthode" Range de l'objet'_Worksheet 'à Échoué.
S'il vous plaît quelqu'un sait comment résoudre ce problème?

Merci beaucoup :)

Voila le code:


Option Explicit
Dim Ws As Worksheet
Private Sub UserForm_Initialize()
Dim J As Long
ComboBox2.ColumnCount = 1
ComboBox2.List() = Array(" ", " Development 1 ", " Development 2 ", " Partnership ")
Set Ws = Sheets("RFP")
With Me.ComboBox1
For J = 2 To Ws.Range(" A " & Rows.Count).End(xlUp).Row
.AddItem Ws.Range(" A " & J)
Next J
End With

End Sub

Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
ComboBox2 = Ws.Cells(Ligne, " B ")
For I = 1 To 7
Me.Controls(" TextBox " & I) = Ws.Cells(Ligne, I + 2)
Next I
End Sub

Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox(" Confirmez-vous l’insertion de ce nouveau contrat ? ", vbYesNo, " Demande de confirmation d’ajout ") = vbYes Then
L = Sheets("RFP").Range(" a65536 ").End(xlUp).Row + 1
Range(" A " & L).Value = ComboBox1
Range(" B " & L).Value = ComboBox2
Range(" C " & L).Value = TextBox2
Range(" D " & L).Value = TextBox3
Range(" E " & L).Value = TextBox4
Range(" F " & L).Value = TextBox5
Range(" G " & L).Value = TextBox6
Range(" H " & L).Value = TextBox7

End If
End Sub


Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim I As Integer
If MsgBox(" Confirmez-vous la modification de ce contrat ? ", vbYesNo, " Demande de confirmation de modification ") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
Ws.Cells(Ligne, " B ") = ComboBox2
For I = 1 To 7
If Me.Controls(" TextBox " & I).Visible = True Then
Ws.Cells(Ligne, I + 2) = Me.Controls(" TextBox " & I)
End If
Next I
End If
End Sub


Private Sub CommandButton3_Click()
Unload Me
End Sub

[Invité]

Je travaille sur ce fichier depuis longtemps et quand je lance la macro je reçois une erreur qui dit "La méthode" Range de l'objet'_Worksheet 'à Échoué.

Bonjour,

Si vous travaillez sur un document Word, c'est normal, visiblement votre code concerne un fichier Excel.

Si vous devez rédiger d'autres messages contenant du code, mettez votre code entre balises #

Cordialement.

[coronadoj]

Bonjour,

Je ne savais pas comment mettre le code sous format code . Effectivement c'est sur excel que je bosse.
Est ce que tu sais a quoi correspond l'erreur sur excel ?

Merci

[Invité]

Je ne savais pas comment mettre le code sous format code . Effectivement c'est sur excel que je bosse.
Est ce que tu sais a quoi correspond l'erreur sur excel ?

Il vaudrait mieux clôturer ce message qui n'a rien à faire sur ce forum et le remettre sur Excel VBA. Il faudra en profiter pur mettre le code entre balises.
La règle du forum n'est pas de mettre un fichier exemple en première demande, mais si vous n'avez pas de réponse, il sera sans doute nécessaire de le faire pour ne pas avoir à tout modéliser.

Visiblement, le problème vient de la déclaration de la variable Ws. Il vous faut la déclarer Private en tête du module pour qu'elle soit reconnue dans tout le module. Personnellement, je préfère déclarer ce genre de variable en Public dans un module standard.

Ne pas oublier de la détruire au déchargement de l'Usf avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Ws = Nothing

.
Cordialement.