Trouver la cellule en colonne A ligne ?? après un click dans une autre cellule de la meme ligne
3 réponses
Dan
Bonjour
Cette procédure permet de selectionner la ligne en colonne A
à condition que les cellules soient remplies par une valeur et de charger
ces valeurs
dans le Userform.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Modifier_dépenses.Show
End Sub
Private Sub UserForm_Activate()
Selection.End(xlToLeft).Select 'ici si une cellule vide dans la ligne
selectionnée colonne A non atteinte...
ActiveWorkbook.Names.Add Name:="Ligne_modif", RefersToR1C1:=Selection
'valeurs de la ligne sélectionnée dans le Userform
ComboBox_Etat.Text = ActiveCell.Value
ComboBox_Type.Text = ActiveCell.Offset(0, 1).Value
ComboBox_Fami.Text = ActiveCell.Offset(0, 2).Value
ComboBox_S_Famille.Text = ActiveCell.Offset(0, 3).Value
ComboBox_Libel.Text = ActiveCell.Offset(0, 4).Value
TextBox_Libel.Text = ComboBox_Libellé
ComboBox_Tiers = ActiveCell.Offset(0, 5).Value
TextBox_Tiers.Text = ComboBox_Tiers
Calendar_date_opération = ActiveCell.Offset(0, 6).Value
TextBox_MontantTTC = ActiveCell.Offset(0, 7).Value
End sub
Le hic est que si une cellule est vide entre la cellule qui
a été double-click la selection ne va pas en colonne A
et les valeurs sont décallées dans les ComboBox.
Comment éviter le double-click dans certaines plages ?
N'est-ce pas une macro "manivelle" ?
Merci pour vos interventions sur le forum cela donne
des bons coups de main...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour,
Pour aller en début de ligne active :
Private Sub UserForm_Activate() l¬tiveCell.Row Cells(l,1).Select
Camille
"Dan" wrote:
Bonjour
Cette procédure permet de selectionner la ligne en colonne A à condition que les cellules soient remplies par une valeur et de charger ces valeurs dans le Userform.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Modifier_dépenses.Show End Sub
Private Sub UserForm_Activate() Selection.End(xlToLeft).Select 'ici si une cellule vide dans la ligne selectionnée colonne A non atteinte... ActiveWorkbook.Names.Add Name:="Ligne_modif", RefersToR1C1:=Selection
'valeurs de la ligne sélectionnée dans le Userform ComboBox_Etat.Text = ActiveCell.Value ComboBox_Type.Text = ActiveCell.Offset(0, 1).Value ComboBox_Fami.Text = ActiveCell.Offset(0, 2).Value ComboBox_S_Famille.Text = ActiveCell.Offset(0, 3).Value ComboBox_Libel.Text = ActiveCell.Offset(0, 4).Value TextBox_Libel.Text = ComboBox_Libellé ComboBox_Tiers = ActiveCell.Offset(0, 5).Value TextBox_Tiers.Text = ComboBox_Tiers Calendar_date_opération = ActiveCell.Offset(0, 6).Value TextBox_MontantTTC = ActiveCell.Offset(0, 7).Value End sub
Le hic est que si une cellule est vide entre la cellule qui a été double-click la selection ne va pas en colonne A et les valeurs sont décallées dans les ComboBox.
Comment éviter le double-click dans certaines plages ?
N'est-ce pas une macro "manivelle" ?
Merci pour vos interventions sur le forum cela donne des bons coups de main...
Dan...
Bonjour,
Pour aller en début de ligne active :
Private Sub UserForm_Activate()
l¬tiveCell.Row
Cells(l,1).Select
Camille
"Dan" wrote:
Bonjour
Cette procédure permet de selectionner la ligne en colonne A
à condition que les cellules soient remplies par une valeur et de charger
ces valeurs
dans le Userform.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Modifier_dépenses.Show
End Sub
Private Sub UserForm_Activate()
Selection.End(xlToLeft).Select 'ici si une cellule vide dans la ligne
selectionnée colonne A non atteinte...
ActiveWorkbook.Names.Add Name:="Ligne_modif", RefersToR1C1:=Selection
'valeurs de la ligne sélectionnée dans le Userform
ComboBox_Etat.Text = ActiveCell.Value
ComboBox_Type.Text = ActiveCell.Offset(0, 1).Value
ComboBox_Fami.Text = ActiveCell.Offset(0, 2).Value
ComboBox_S_Famille.Text = ActiveCell.Offset(0, 3).Value
ComboBox_Libel.Text = ActiveCell.Offset(0, 4).Value
TextBox_Libel.Text = ComboBox_Libellé
ComboBox_Tiers = ActiveCell.Offset(0, 5).Value
TextBox_Tiers.Text = ComboBox_Tiers
Calendar_date_opération = ActiveCell.Offset(0, 6).Value
TextBox_MontantTTC = ActiveCell.Offset(0, 7).Value
End sub
Le hic est que si une cellule est vide entre la cellule qui
a été double-click la selection ne va pas en colonne A
et les valeurs sont décallées dans les ComboBox.
Comment éviter le double-click dans certaines plages ?
N'est-ce pas une macro "manivelle" ?
Merci pour vos interventions sur le forum cela donne
des bons coups de main...
Private Sub UserForm_Activate() l¬tiveCell.Row Cells(l,1).Select
Camille
"Dan" wrote:
Bonjour
Cette procédure permet de selectionner la ligne en colonne A à condition que les cellules soient remplies par une valeur et de charger ces valeurs dans le Userform.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Modifier_dépenses.Show End Sub
Private Sub UserForm_Activate() Selection.End(xlToLeft).Select 'ici si une cellule vide dans la ligne selectionnée colonne A non atteinte... ActiveWorkbook.Names.Add Name:="Ligne_modif", RefersToR1C1:=Selection
'valeurs de la ligne sélectionnée dans le Userform ComboBox_Etat.Text = ActiveCell.Value ComboBox_Type.Text = ActiveCell.Offset(0, 1).Value ComboBox_Fami.Text = ActiveCell.Offset(0, 2).Value ComboBox_S_Famille.Text = ActiveCell.Offset(0, 3).Value ComboBox_Libel.Text = ActiveCell.Offset(0, 4).Value TextBox_Libel.Text = ComboBox_Libellé ComboBox_Tiers = ActiveCell.Offset(0, 5).Value TextBox_Tiers.Text = ComboBox_Tiers Calendar_date_opération = ActiveCell.Offset(0, 6).Value TextBox_MontantTTC = ActiveCell.Offset(0, 7).Value End sub
Le hic est que si une cellule est vide entre la cellule qui a été double-click la selection ne va pas en colonne A et les valeurs sont décallées dans les ComboBox.
Comment éviter le double-click dans certaines plages ?
N'est-ce pas une macro "manivelle" ?
Merci pour vos interventions sur le forum cela donne des bons coups de main...
Dan...
Dan
Super Elliac j'avais de gros pb. de vocabulaire/syntaxe avec Cells(Row,Col). par contre quand l'utilisateur Double click dans la zone figée Cells comprend pas ??? Comment rendre neutre le double-click dans une plage figée ? un autre sujet @+ Dan...
"Elliac" a écrit dans le message de news:
Bonjour,
Pour aller en début de ligne active :
Private Sub UserForm_Activate() l¬tiveCell.Row Cells(l,1).Select
Camille
"Dan" wrote:
Bonjour
Cette procédure permet de selectionner la ligne en colonne A à condition que les cellules soient remplies par une valeur et de charger
ces valeurs dans le Userform.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Modifier_dépenses.Show End Sub
Private Sub UserForm_Activate() Selection.End(xlToLeft).Select 'ici si une cellule vide dans la ligne selectionnée colonne A non atteinte... ActiveWorkbook.Names.Add Name:="Ligne_modif", RefersToR1C1:=Selection
'valeurs de la ligne sélectionnée dans le Userform ComboBox_Etat.Text = ActiveCell.Value ComboBox_Type.Text = ActiveCell.Offset(0, 1).Value ComboBox_Fami.Text = ActiveCell.Offset(0, 2).Value ComboBox_S_Famille.Text = ActiveCell.Offset(0, 3).Value ComboBox_Libel.Text = ActiveCell.Offset(0, 4).Value TextBox_Libel.Text = ComboBox_Libellé ComboBox_Tiers = ActiveCell.Offset(0, 5).Value TextBox_Tiers.Text = ComboBox_Tiers Calendar_date_opération = ActiveCell.Offset(0, 6).Value TextBox_MontantTTC = ActiveCell.Offset(0, 7).Value End sub
Le hic est que si une cellule est vide entre la cellule qui a été double-click la selection ne va pas en colonne A et les valeurs sont décallées dans les ComboBox.
Comment éviter le double-click dans certaines plages ?
N'est-ce pas une macro "manivelle" ?
Merci pour vos interventions sur le forum cela donne des bons coups de main...
Dan...
Super Elliac
j'avais de gros pb. de vocabulaire/syntaxe avec Cells(Row,Col).
par contre quand l'utilisateur Double click dans la zone figée
Cells comprend pas ???
Comment rendre neutre le double-click dans une plage figée ?
un autre sujet
@+
Dan...
"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de news:
61F86FB7-A73B-4436-AE52-9852B8286CD2@microsoft.com...
Bonjour,
Pour aller en début de ligne active :
Private Sub UserForm_Activate()
l¬tiveCell.Row
Cells(l,1).Select
Camille
"Dan" wrote:
Bonjour
Cette procédure permet de selectionner la ligne en colonne A
à condition que les cellules soient remplies par une valeur et de
charger
ces valeurs
dans le Userform.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Modifier_dépenses.Show
End Sub
Private Sub UserForm_Activate()
Selection.End(xlToLeft).Select 'ici si une cellule vide dans la ligne
selectionnée colonne A non atteinte...
ActiveWorkbook.Names.Add Name:="Ligne_modif",
RefersToR1C1:=Selection
'valeurs de la ligne sélectionnée dans le Userform
ComboBox_Etat.Text = ActiveCell.Value
ComboBox_Type.Text = ActiveCell.Offset(0, 1).Value
ComboBox_Fami.Text = ActiveCell.Offset(0, 2).Value
ComboBox_S_Famille.Text = ActiveCell.Offset(0, 3).Value
ComboBox_Libel.Text = ActiveCell.Offset(0, 4).Value
TextBox_Libel.Text = ComboBox_Libellé
ComboBox_Tiers = ActiveCell.Offset(0, 5).Value
TextBox_Tiers.Text = ComboBox_Tiers
Calendar_date_opération = ActiveCell.Offset(0, 6).Value
TextBox_MontantTTC = ActiveCell.Offset(0, 7).Value
End sub
Le hic est que si une cellule est vide entre la cellule qui
a été double-click la selection ne va pas en colonne A
et les valeurs sont décallées dans les ComboBox.
Comment éviter le double-click dans certaines plages ?
N'est-ce pas une macro "manivelle" ?
Merci pour vos interventions sur le forum cela donne
des bons coups de main...
Super Elliac j'avais de gros pb. de vocabulaire/syntaxe avec Cells(Row,Col). par contre quand l'utilisateur Double click dans la zone figée Cells comprend pas ??? Comment rendre neutre le double-click dans une plage figée ? un autre sujet @+ Dan...
"Elliac" a écrit dans le message de news:
Bonjour,
Pour aller en début de ligne active :
Private Sub UserForm_Activate() l¬tiveCell.Row Cells(l,1).Select
Camille
"Dan" wrote:
Bonjour
Cette procédure permet de selectionner la ligne en colonne A à condition que les cellules soient remplies par une valeur et de charger
ces valeurs dans le Userform.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Modifier_dépenses.Show End Sub
Private Sub UserForm_Activate() Selection.End(xlToLeft).Select 'ici si une cellule vide dans la ligne selectionnée colonne A non atteinte... ActiveWorkbook.Names.Add Name:="Ligne_modif", RefersToR1C1:=Selection
'valeurs de la ligne sélectionnée dans le Userform ComboBox_Etat.Text = ActiveCell.Value ComboBox_Type.Text = ActiveCell.Offset(0, 1).Value ComboBox_Fami.Text = ActiveCell.Offset(0, 2).Value ComboBox_S_Famille.Text = ActiveCell.Offset(0, 3).Value ComboBox_Libel.Text = ActiveCell.Offset(0, 4).Value TextBox_Libel.Text = ComboBox_Libellé ComboBox_Tiers = ActiveCell.Offset(0, 5).Value TextBox_Tiers.Text = ComboBox_Tiers Calendar_date_opération = ActiveCell.Offset(0, 6).Value TextBox_MontantTTC = ActiveCell.Offset(0, 7).Value End sub
Le hic est que si une cellule est vide entre la cellule qui a été double-click la selection ne va pas en colonne A et les valeurs sont décallées dans les ComboBox.
Comment éviter le double-click dans certaines plages ?
N'est-ce pas une macro "manivelle" ?
Merci pour vos interventions sur le forum cela donne des bons coups de main...
Dan...
AV
Comment rendre neutre le double-click dans une plage figée ?
Exemple pour la plage A1:A10
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean) If Not Intersect(zz, [A1:A10]) Is Nothing Then Cancel = True End Sub
AV
Comment rendre neutre le double-click dans une plage figée ?
Exemple pour la plage A1:A10
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
If Not Intersect(zz, [A1:A10]) Is Nothing Then Cancel = True
End Sub
