Fonction Loop

[vmax67]

Bonjour

j'ai besoin d'aide avec ma fonction Loop celle-ci fonctionne très bien
elle copie bien les valeurs des Textboxs sur la feuille LAB, mais
les cellules remplies son bloquées comme si la boucle était toujours active.
Ci-dessous le code

Sub MAJ1()
Sheets("LAB").Select
ActiveSheet.Range("B8").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = UserForm1.TextBox1.Text
ActiveCell.Offset(0, 3) = UserForm1.TextBox2.Value
ActiveCell.Offset(0, 6) = UserForm1.TextBox3.Value
ActiveCell.Offset(0, 9) = UserForm1.TextBox4.Value
Sheets("JOUEURS").Select
Range("A1").Select
Sheets("LAB").Select
Range("A1").Select

End Sub

Merci

 

[Paf]

Re : Fonction Loop

Bonjour,

a priori ce n'est pas ce code qui bloque quoi que ce soit, le classeur en PJ permettrait d'en savoir plus.

Par ailleurs ce code peut être simplifié, mais, à voir le contexte.

A+

 

[vmax67]

Re : Fonction Loop

Bonsoir

voir pièce jointe
Il me faudrait aussi un message d'alerte si la valeur saisie n'est pas dans la colonne C.

Merci

Vmax

 

[Paf]

Re : Fonction Loop

Re,

les cellules remplies son bloquées comme si la boucle était toujours active.
Ci-dessous le code

Désolé, je n'ai pas trouvé de dysfonctionnement.

J'ai modifié un peu le code mais, aucune différence de fonctionnement

Sub MAJ1()

Dim DerLig As Integer

With Worksheets("LAB")
    DerLig = .Range("B" & Rows.Count).End(xlUp).Row + 1
    With .Cells(DerLig, 2)
        .Value = UserForm1.TextBox1.Text
        .Offset(0, 3) = UserForm1.TextBox2.Value
        .Offset(0, 6) = UserForm1.TextBox3.Value
        .Offset(0, 9) = UserForm1.TextBox4.Value
    End With
    
.Range("A1").Select
End With

End Sub

Bonne suite

 

[vmax67]

Re : Fonction Loop

BONJOUR

effectivement le code fonctionne super bien dans Excel 2010
et bizarrement dans Excel 2013 ça ne fonctionne pas correctement.
Le code fonctionne bien, mais après exécution de cellui-ci, ça me fige les cellules
de ma feuille "LAB" !!!!

Avis aux utilisateurs de la version 2013

@+

VMAX