userform ligne jaune

dubdub87 · 29 Septembre 2012

bonjours je vient vers vous car mon souci et que sur cet ligne il me l'affiche en fluo que faire svp

derligne = Worksheets(set_focus_on).Range("a65536").End(xlUp) .Row + 1

j'arrive pas a comprendre

merci d'avance

Gardien de phare · 29 Septembre 2012

Re : userform ligne jaune

Bonjour,

Code:

Sub test()
Dim derligne As Long
derligne = Worksheets("set_focus_on").Range("a65536").End(xlUp).Row + 1
MsgBox derligne
End Sub

HTH

--
François L

dubdub87 · 29 Septembre 2012

Re : userform ligne jaune

rebonjours

merci de votre aide mais sa ne m'explique pour kel action c'est fait je suis novice et j'essaye de comprendre l'action pour pouvoir avancer dans mon projet

merci d'avance

Robert · 29 Septembre 2012

Re : userform ligne jaune

Bonjour DubDub, Gardien de pahre, bonjour le forum,

Il y a trois façons de faire référence à un onglet en VBA :
• Name : propriété Name,
• (Name) : propriété CodeName
• Index ou numéro de rang
Si dans ton projet le composant s'appelle : Feuil1(set_focus_on) et il se trouve en troisième position, quand tu fait référence au nom Name d'un onglet il faut écrire celui-ci entre guillements :

Code:

Sheets("set_focus_on").Select

Quand tu fait référence au CodeName d'un onglet il faut écrire celui-ci comme ça :

Code:

Feuil1.select

Si tu fais réfénce à son index (son rang) tu peux alors écrire :

Code:

Sheets(3).Select

En fonction des tes besoins utilise l'une ou l'autre de ces possibilités. Le CodeName est assez rarement employé sans que je n'en connaisse la raison exacte. Peut-être pour faciliter la lisibilité du code. Si l'onglet a été renommé Janvier par exemple, Sheets("Janvier") sera plus compréhensible que Feuil1.

dubdub87 · 29 Septembre 2012

Re : userform ligne jaune

re veut tu le fichier que je creer pour ke tu comprenne pkoi jte demande sa
a plus

Gardien de phare · 29 Septembre 2012

Re : userform ligne jaune

Re,

Pour savoir à quoi sert cette ligne, il faudrait connaître le contexte !

Cette ligne attribue à la variable derligne la valeur de la première ligne vide de la colonne A de la feuille nommée set_focus_on. Code écrit pour les versions d'Excel qui ne traitaient que 65536 lignes, c'est à dire jusqu'à 2003 inclus, de mémoire.

Ce type de code est souvent utilisé pour déterminer la première ligne disponible d'une feuille et ajouter des données à une base existante.

--
François L

jmps · 29 Septembre 2012

Re : userform ligne jaune

dubdub87 à dit:
re veut tu le fichier que je creer pour ke tu comprenne pkoi jte demande sa
a plus

Y'a pas de correcteur SMS sur OS X Mountain Lion ?
Je suis déçu 😛

Robert · 29 Septembre 2012

Re : userform ligne jaune

Bonjour le fil, bonjour le forum,

C'est bizarre, j'ai l'impresion d'avoir carrément été zappé sur ce coup là... Dis-moi mon José, je sens le pâté ou quoi ?

dubdub87 · 29 Septembre 2012

Re : userform ligne jaune

rebonjours, a tous je vien vous voir car je suis sous mac ossi et ces ligne de code marche sous win mé ps sous mac pourkoi svp

Private Sub Workbook_Open()

ComboBox1.ListFillRange = "listes!A3:A14"

End Sub

Private Sub cmdajouter_Click()(erreur de compilation: function ou variable attandu) sa veu dire koi svp

Dim ref_prod, marque_prod, couleurs_prod, qte_prod As String

Dim set_focus_on As String

Dim derligne As Integer

ref_prod = txtreferences.Value

marque_prod = txtmarques.Value

Me.cbocouleurs.AddItem = "listes!A3:A14" & txtprecision.Value ('lui ne veu pas reconnatre cet colonne pourtant existante)

qte_prod = ComboBox1.Value

set_focus_on = cbomatieres.Value

derligne = Worksheets(a2).Range("a65536").End(xlUp).Row + 1

Private Sub cmdfermer_Click()

frmajoutermatieres.Hide

End Sub

Worksheets(set_focus_on).Activate

Worksheets(set_focus_on).Cells(derligne, 1).Value = ref_prod

Worksheets(set_focus_on).Cells(derligne, 2).Value = marque_prod

Worksheets(set_focus_on).Cells(derligne, 3).Value = couleur_prod

Worksheets(set_focus_on).Cells(derligne, 4).Value = qte_prod

frmajoutermatiÈres.Hide

' Dim numLigneVide As Integer

' Worksheet("huiles").Activate

' numLigneVide = ActiveSheet.columna(1).Find("").Row

End Sub

Private Sub cmdfermer_Click()

frmajoutermatieres.Hide

End Sub

Gardien de phare · 29 Septembre 2012

Re : userform ligne jaune

Re,

rebonjours, a toi je ne reviendré pas te voir car je ne suis pa sous mac ossi é que tes ligne de code ne marche pa sous win non plu é ke je ne sé pa pourkoi

--
François L

phlaurent55 · 29 Septembre 2012

Re : userform ligne jaune

Bonjour à tous

Lien supprimé
en cliquant ci-dessus, on peut lire:

b) La Question dans le message doit contenir un maximum d’informations, plus vous donnerez de détails, plus il sera facile de vous répondre. Mettez vous à la place des Lecteurs, ils ne peuvent pas imaginer votre problème. Les abréviations sont à éviter, nous sommes dans un Forum, pas un chat. Prenez le temps de rédiger clairement votre question, et songez que tronquer tous les mots fatigue la lecture (Idem pour les Majuscules qui en plus signifient ' crier ')

mais encore:

c) Ce forum offre la possibilité unique de joindre des fichiers, profitez de cette merveilleuse facilité mais pensez bien qu’il faut quand même faire une description de votre problème dans le message… Joindre un fichier avec comme message ' voir fichier joint ' … équivaut un peu comme écrire 'trouvez la réponse pour moi et finissez mon travail'. De plus dans ce forum chacun a sa spécialité, si vous ne décrivez pas clairement de quoi il s’agit, mais qu’il faut télécharger votre fichier pour le savoir, dites vous bien que vous minimisez vos chances de réponse.
En ce qui concerne la possibilité de pièces jointes, elles devront être explicites et comporter juste un exemple de votre problème, pas une application entière. Il est inutile de joindre un tableau formaté de 100 lignes et 30 colonnes et plusieurs feuilles pour un exemple............................
...................................................
................................

à+
Philippe

jmps · 29 Septembre 2012

Re : userform ligne jaune

Robert à dit:
Bonjour le fil, bonjour le forum,

C'est bizarre, j'ai l'impresion d'avoir carrément été zappé sur ce coup là... Dis-moi mon José, je sens le pâté ou quoi ?

Ménon monRobère, je constate juste que Mountain Lion comporte des crayons de couleur (jaunes, verts, et cyan)
C'est joli Mountain Lion 😎
Paraît que la prochaine version va embarquer le rouge en natif.
Mais chut... Faut attendre la prochaine keynote de Tim Cook.
Un méga-show avec l'iPhone 5.02.10 build 1589 en première partie.
Les bugs de Plans seront repérés par des hannetons géants verts fluo clignotants.
Ça va flasher dans les transports 😛

userform ligne jaune

dubdub87

Guest

Gardien de phare

XLDnaute Accro

dubdub87

Guest

Robert

XLDnaute Barbatruc

dubdub87

Guest

Gardien de phare

XLDnaute Accro

jmps

Nous a quitté

Robert

XLDnaute Barbatruc

dubdub87

Guest

Gardien de phare

XLDnaute Accro

phlaurent55

Nous a quittés en 2020

jmps

Nous a quitté

Discussions similaires

userform ligne jaune

dubdub87

Guest

XLDnaute Accro

dubdub87

Guest

XLDnaute Barbatruc

dubdub87

Guest

XLDnaute Accro

Nous a quitté

XLDnaute Barbatruc

dubdub87

Guest

XLDnaute Accro

Nous a quittés en 2020

Nous a quitté

Discussions similaires

Privacy & Transparency

Privacy & Transparency