Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour à tous,
J'aimerai savoir si l'on peut inserer une ligne de 3 colonnes de données dans un lisbox à la n ième place.
Je n'y arrive pas avec additem qui ne prend que la donnée de la première colonne.
Merci d'avance
Bonjour alain,
Tu peux essayer cette macro, ça devrait le faire.
Sub essai()
Dim cellule As Range
Application.ScreenUpdating = False
Columns('N:N').Select
For Each cellule In Selection
i = cellule.Row
If Cells(i, 1).Text = '' Then Exit Sub
If cellule.Text = '1' Then
Range(Cells(i +...
Je ne suis pas sur que tu puisses cacher une cellule uniquement, une ligne ou une colonne oui mais là?
Ou alors tu peux en vb mettre la valeur de la case a10 dans une variable.Puis effacer cette case lorsque tu le désires et faire appel à cette variable pour la réafficher.
Dans ce cas, tu n'as pas besoins de bouton.
Si tu place cette macro dans le module de ta feuille S, elle s'exécutera automatiquement à chaque changement de la cellule G4.
Dans ce cas, tu n'as pas besoins de bouton.
Si tu place cette macro dans le module de ta feuille S, elle s'exécutera automatiquement à chaque changement de la cellule G4.
Bonjour sandrine,
En mettant cette macro dans le module der ta feuille S tu devrais arriver à tes fins.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range('G4').Value >= 2 Then
Worksheets('AB').Visible = True
Worksheets('BB').Visible = True
Worksheets('CB').Visible = True...
Bonjour le forum,
Mardi matin, 8h00, j'arrive au boulot, j'prends un café et me connecte au forum Xld pour voir si je peux répondre à un ou deux postes et je tombe sur celui-ci:
Lien supprimé
Même pseudo mais c'est pas moi...
Voilà c'est pas bien méchant mais je voulais juste le signaler.
Bonjour didier, temjeh,shock
Peut etre que ce lien pourra t'aider
http://www.01net.com/outils/telecharger/windows/Personnaliser/Icone/fiches/tele26590.html
Bonjour KIKI,
Lorsque tu rentres dans ta macro commandbutton6,
tu dis if Me.nom.value....
Hors dans ton userform4 il n'y a pas d'objet appeler nom.
J'imagine qu'il sagit de ComboBox1?
Bonjour Roland,
Je ne connais rien à access mais peut-etre pourrais-tu indiquer dans ta fonction toutafficher le classeur à traiter.
Sub ToutAfficher(wb as workbook)
Dim ws As Worksheet
For Each ws In wb.Worksheets
ws.Visible = True
Next
End Sub
....
call to ToutAfficher(wb)
...
Bonjour vincent,
Une solution pour lancer une macro à partir d'un lien hypertext :
Lors de la création de ton lien, tu fais emplacement dans ce document, une feuille quelconque autre que celle contenant le lien.
Puis dans le module worksheets_deactivate tu fais:
Private Sub...
Alors ce serait plus ça:
Sub test()
If (Cells(1, 1) = '<LD' Or Cells(1, 1) < 1) And _
(Cells(1, 2) = '<LD' Or Cells(1, 2) < 1) And _
(Cells(1, 3) = '<LD' Or Cells(1, 3) < 1) Then Cells(2, 1) = 'conclusion1' Else _
Cells(2, 1) = 'conclusion2'
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.