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

skoobi

XLDnaute Barbatruc

• 17 Juin 2008

• #2

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

Bonjour,

je te propose cette condition:

Code:

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 17 Juin 2008

• #3

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.

 

Dernière édition: 19 Juin 2008

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 17 Juin 2008

• #4

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

Cliquez pour agrandir...

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

Code:

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 🙂

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 17 Juin 2008

• #5

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.

 

Dernière édition: 19 Juin 2008

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 17 Juin 2008

• #6

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. 😉

 

Pièces jointes

• Plusieurs lignes v1.zip

  15.4 KB · Affichages: 49

Dernière édition: 17 Juin 2008

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 17 Juin 2008

• #7

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.

 

Dernière édition: 19 Juin 2008

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 17 Juin 2008

• #8

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!!! 😉

 

Pièces jointes

• Plusieurs lignes v2.zip

  15.3 KB · Affichages: 83

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 18 Juin 2008

• #9

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

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

 

Dernière édition: 19 Juin 2008

Vote positif 0 Vote négatif