Écrire des données aprés vérification

[degap05]

Bonjour,

La partie de macro ci-dessous permet d'écrire à l'aide d'un USF, plusieurs lignes de données identiques.
L'USF est appelé en colonne F à partir de F4.
Les données du USF sont envoyés sur la ligne F,G,H à partir de la cellule active.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
nbr = CDbl(TextBox5)
For i = 1 To nbr
ActiveCell.Offset(i - 1, 0).Value = TextBox1.Text
ActiveCell.Offset(i - 1, 1).Value = ComboBox1.Text
ActiveCell.Offset(i - 1, 2).Value = ComboBox2.Text
Next i
Unload Me
Application.ScreenUpdating = True
End Sub

Je souhaiterais ajouter une condition pour remplir le nombre de lignes choisies. Ce serait que les données en colonne B soient identiques.
Si données non identiques, le message "Veuillez indiquer un nombre d'unités compatibles".

Merci pour votre aide.

 

[skoobi]

Re : Écrire des données aprés vérification

Bonjour,

je te propose cette condition:

Set plage = ActiveCell.Resize(nbr, 1)
cpte = Application.WorksheetFunction.Count(plage)
If nbr - cpte <> 0 And cpte <> 0 Then MsgBox "Veuillez indiquer un nombre d'unités compatibles."

Bonne journée

 

[degap05]

Re : Écrire des données aprés vérification

Bonjour Skoobi,
Merci de t'interresser à ma question. Ta proposition est certainement ce qu'il me faut, mais je suis incapable de la mettre en œuvre. J'essaie de comprendre à quoi fait référence: Set plage = ActiveCell.Resize(nbr, 1). La plage de référence, dans mon cas, n'est pas celle de la colonne de la cellule active.
Avec encore un petit coup de main...........merci.

 

[skoobi]

Re : Écrire des données aprés vérification

Re,

La plage de référence, dans mon cas, n'est pas celle de la colonne de la cellule active

Ok.
En me basant sur l'exemple de ton premier message, voici ce que sa donne:

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  nbr = CDbl(TextBox5)
  Set plage = Range(ActiveCell.Offset(0, -4), ActiveCell.Offset(nbr, -4))
  cpte = Application.WorksheetFunction.Count(plage)
  If nbr - cpte <> 0 And cpte <> 0 Then
    MsgBox "Veuillez indiquer un nombre d'unités compatibles."
  Else
    For i = 1 To nbr
      ActiveCell.Offset(i - 1, 0).Value = TextBox1.Text
      ActiveCell.Offset(i - 1, 1).Value = ComboBox1.Text
      ActiveCell.Offset(i - 1, 2).Value = ComboBox2.Text
    Next i
  End If
  Unload Me
  Application.ScreenUpdating = True
End Sub

Bon test 🙂

 

[degap05]

Re : Écrire des données aprés vérification

Merci de ta disponibilité,
Le résultat est mitigé et ne semble pas fonctionner à tous les coups.
Merci.

 

[skoobi]

Re : Écrire des données aprés vérification

Re,

A mon avis tu n'as pas besoin d'indiquer un nombre d'unité, la macro que j'ai fais s'en charge.
Regarde si ça te conviens.
PS: j'ai juste mis en commentaire ce qu'il fallait si jamais tu veux tout de même garder le "compteur".

Si tu veux des explications pour le code, n'hésite pas. 😉

 

[degap05]

Re : Écrire des données aprés vérification

Merci de ta solution rapide.
L'utilisateur doit pouvoir choisir le nombre de lignes à remplir.
Si tu veux bien conserver cette possibilité, cela me conviendrait parfaitement.

 

[skoobi]

Re : Écrire des données aprés vérification

haaa! là c'est beaucoup plus clair, comme quoi il ne faut pas hésiter à prendre 5 mn de plus pour bien expliquer la demande....

Voici la nouvelle mouture, là ça doit être bon.

Bonne soirée, allez les bleus!!! 😉

 

[degap05]

Re : Écrire des données aprés vérification

Bonjour, Skoobi,
Merci pour ta solution et ta disponibilité🙂🙂