selectionner ligne vide

Pierrot93

XLDnaute Barbatruc

• 9 Juin 2011

• #2

Re : selectionner ligne vide

Bonjour,

petite remarque au passage, pourquoi ne pas supprimer directement la ligne concernée ?
dans ce cas une boucle "for" en commencant par la fin et en remontant devrait suffire...

bonne journée
@+

 

Vote positif 0 Vote négatif

R

recovery

XLDnaute Junior

• 9 Juin 2011

• #3

Re : selectionner ligne vide

Bonjour,
Initialement je supprimais la ligne depuis un commandbutton le hic vient de la colonne A qui fait office de rowsource dynamique pour ma combobox et bout de X ligne supprimer les ref de la zone de nom ne sont plus valide .

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juin 2011

• #4

Re : selectionner ligne vide

Re,

essaye ceci, à placer en fin de procédure redéfini ta plage de cellules dans la combo :
(utilisable sur un combo de la boîte à outils controles)

Code:

Feuil1.ComboBox1.ListFillRange = Range("A2", Range("A65536").End(xlUp)).Address

@+

 

Vote positif 0 Vote négatif

R

recovery

XLDnaute Junior

• 9 Juin 2011

• #5

Re : selectionner ligne vide

OK pierrot

alors Je garde l'option de supprimer les ligne je viens d'adapter la procédure un message d'erreur s'affiche erreur d’exécution objet requis.

 

Dernière édition: 9 Juin 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juin 2011

• #6

Re : selectionner ligne vide

Re,

alors Je garde l'option de supprimer les ligne ?

Cliquez pour agrandir...

cela me semble plus logique... A toi de voir selon la suite de ton projet...

 

Vote positif 0 Vote négatif

R

recovery

XLDnaute Junior

• 9 Juin 2011

• #7

Re : selectionner ligne vide

Comme je te le précise plus haut le code est adapté mais un message d'erreur s'affiche: erreur d’exécution objet requis a titre d'indication
voici le code de mes différentes rowsources .
b = ActiveSheet.Range("A2:C" & ActiveSheet.Range("A65000").End(xlUp).Row)
UserForm1.ComboBox1.List = b

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juin 2011

• #8

Re : selectionner ligne vide

Re,

tu n'avais pas précisé qu'il s'agissait d'un USF..;
essaye ainsi :

Code:

UserForm1.ComboBox1.List = ActiveSheet.Range("A2:C" & ActiveSheet.Range("A65000").End(xlUp).Row).Value

 

Vote positif 0 Vote négatif

R

recovery

XLDnaute Junior

• 9 Juin 2011

• #9

Re : selectionner ligne vide

ça a l'air de fonctionner je supprime des lignes et pour le moment la rowsource se semble pas affectée je vais continuer les vérifications.
Je te tiens au courant.
je viens de parler trop vite cette fois au bout de plusieurs suppression je sélectionne un nom dans ma combobox dans le début de ma base de donnée le prénom et les autres information s'affiche correctement dans les différents texbox et après seul le prénom apparaît les autres textbo demeurent vides

Merci Pierrot🙂

 

Dernière édition: 9 Juin 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juin 2011

• #10

Re : selectionner ligne vide

Re,

je viens de parler trop vite cette fois au bout de plusieurs suppression je sélectionne un nom dans ma combobox dans le début de ma base de donnée le prénom et les autres information s'affiche correctement dans les différents texbox et après seul le prénom apparaît les autres textbo demeurent vides

Cliquez pour agrandir...

pas sûr qu'il y ait un lien... mets peut être en pièce jointe un petit fichier représentant le problème posé...

 

Vote positif 0 Vote négatif

R

recovery

XLDnaute Junior

• 9 Juin 2011

• #11

Re : selectionner ligne vide

ok j'essaie te t'envoyer le fichier le bouton qui me mes la pagaille se nomme "supprimer la sélection "

Merci

 

Pièces jointes

• CoursNatation.xls

  199.5 KB · Affichages: 43
• CoursNatation.xls

  199.5 KB · Affichages: 46
• CoursNatation.xls

  199.5 KB · Affichages: 47

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juin 2011

• #12

Re : selectionner ligne vide

Re,

nous nous éloignons beaucoup de la question initiale....
essaye ceci :

Code:

Private Sub CommandButton7_Click()
Dim x As Range
If ComboBox1.ListIndex <> -1 Then
    Set x = Cells.Find(ComboBox1.Value, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then x.EntireRow.Delete
End If
End Sub

mais pas été voir dans tous tes modules...

 

Vote positif 0 Vote négatif

R

recovery

XLDnaute Junior

• 9 Juin 2011

• #13

Re : selectionner ligne vide

oK pierrot

le nouveau code n'a pas fait varier les choses néanmoins le problème semble résolu car testé depuis au moins 20 bonnes minutes. Pour cela j'ai tout simplement mis ta syntaxe
précédente dans le module du bouton concerné.

UserForm1.ComboBox1.List = ActiveSheet.Range("A2:C" & ActiveSheet.Range("A65000").End(xlUp).Row).Value

de sorte qu'a chaque suppression la rowsource se réinitialise

Un grand Merci à toi pierrot d'avoir consacré une grande partie de temps à m'aider

Cordialement. Christophe

 

Vote positif 0 Vote négatif