Macro dans Excel
Fermé
prisci
-
22 avril 2008 à 14:38
ICETEA54 Messages postés 1 Date d'inscription dimanche 15 novembre 2009 Statut Membre Dernière intervention 15 novembre 2009 - 15 nov. 2009 à 15:57
ICETEA54 Messages postés 1 Date d'inscription dimanche 15 novembre 2009 Statut Membre Dernière intervention 15 novembre 2009 - 15 nov. 2009 à 15:57
A voir également:
- Macro dans Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
23 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
24 avril 2008 à 17:20
24 avril 2008 à 17:20
Meûûûh nôôôôn, t'es pas chiante!
pour masquer
Sub voirlavie()
Dim tablo()
Dim cptr As Long, fin As Long, premlig As Long, derlig As Long
Application.ScreenUpdating = False
With Sheets("fiche de vie")
.Range("A36:J11200").ClearContents
.Rows(1 & ":" & 1220).Hidden = False
premlig = .Range("N2")
derlig = .Range("N1")
tablo = Sheets("Modification ").Range("B" & premlig & ":E" & derlig).Value
fin = UBound(tablo)
For cptr = 1 To fin
.Cells(35 + cptr, 1) = tablo(cptr, 1)
.Cells(35 + cptr, 2) = tablo(cptr, 2)
.Cells(35 + cptr, 7) = tablo(cptr, 3)
.Cells(35 + cptr, 10) = tablo(cptr, 4)
Next
.Rows(36 + fin & ":" & 1220).Hidden = True
End With
End Sub
Pour le coup de la ligne, va falloir passer par un userform, on verra ça demain
Bonne soirée
Michel
pour masquer
Sub voirlavie()
Dim tablo()
Dim cptr As Long, fin As Long, premlig As Long, derlig As Long
Application.ScreenUpdating = False
With Sheets("fiche de vie")
.Range("A36:J11200").ClearContents
.Rows(1 & ":" & 1220).Hidden = False
premlig = .Range("N2")
derlig = .Range("N1")
tablo = Sheets("Modification ").Range("B" & premlig & ":E" & derlig).Value
fin = UBound(tablo)
For cptr = 1 To fin
.Cells(35 + cptr, 1) = tablo(cptr, 1)
.Cells(35 + cptr, 2) = tablo(cptr, 2)
.Cells(35 + cptr, 7) = tablo(cptr, 3)
.Cells(35 + cptr, 10) = tablo(cptr, 4)
Next
.Rows(36 + fin & ":" & 1220).Hidden = True
End With
End Sub
Pour le coup de la ligne, va falloir passer par un userform, on verra ça demain
Bonne soirée
Michel
salut c concernant ton autre message tu dis que tu est une pro du sexe jaimerai bien voir ca ecrit moi stephano56@hotmail.com jattend de tes nouvelle xxx
ICETEA54
Messages postés
1
Date d'inscription
dimanche 15 novembre 2009
Statut
Membre
Dernière intervention
15 novembre 2009
15 nov. 2009 à 15:57
15 nov. 2009 à 15:57
Bonjour,
Je suis stagiaire dans une entreprise et je dois bosser sur ce sujet : c'est une urgence de dernière minute pour une certification, on doit se mettre à la norme et en gros, ca doit être fait pour avant hier.
On souhaite gérer nos appareils sur ACCESS à la place d'Excel actuellement et créer des fiches de vie ( d'ate d'envoi au STT pour étalonnage, date de retour, changement d'affectation, envoi/retour en réparation ... )
Je vois que vous êtes plsr à avoir déjà fait ce travail, alors si vous pourriez m'aider ?
Please.
Merci d'avance.
Ice
Je suis stagiaire dans une entreprise et je dois bosser sur ce sujet : c'est une urgence de dernière minute pour une certification, on doit se mettre à la norme et en gros, ca doit être fait pour avant hier.
On souhaite gérer nos appareils sur ACCESS à la place d'Excel actuellement et créer des fiches de vie ( d'ate d'envoi au STT pour étalonnage, date de retour, changement d'affectation, envoi/retour en réparation ... )
Je vois que vous êtes plsr à avoir déjà fait ce travail, alors si vous pourriez m'aider ?
Please.
Merci d'avance.
Ice