Piste sur écriture d'une macro !
Fermé
Edaine
Messages postés
62
Date d'inscription
mercredi 8 juin 2011
Statut
Membre
Dernière intervention
23 avril 2012
-
5 juil. 2011 à 16:21
Edaine Messages postés 62 Date d'inscription mercredi 8 juin 2011 Statut Membre Dernière intervention 23 avril 2012 - 6 juil. 2011 à 10:48
Edaine Messages postés 62 Date d'inscription mercredi 8 juin 2011 Statut Membre Dernière intervention 23 avril 2012 - 6 juil. 2011 à 10:48
A voir également:
- Piste sur écriture d'une macro !
- Écriture facebook - Guide
- Ecriture instagram - Guide
- Macro logiciel - Télécharger - Organisation
- Ecriture disney - Forum Internet / Réseaux sociaux
- Ecriture snap ✓ - Forum Messagerie
8 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
5 juil. 2011 à 16:55
5 juil. 2011 à 16:55
bonjour
petite précision
je suppose que dans B10:K10 de "fet" tu as des textes? vrai, faux?
petite précision
je suppose que dans B10:K10 de "fet" tu as des textes? vrai, faux?
Edaine
Messages postés
62
Date d'inscription
mercredi 8 juin 2011
Statut
Membre
Dernière intervention
23 avril 2012
5 juil. 2011 à 17:23
5 juil. 2011 à 17:23
Des entêtes des colonnes oui ^^'
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
5 juil. 2011 à 17:25
5 juil. 2011 à 17:25
Ok, merci
je regarde demain.
bonne soirée
je regarde demain.
bonne soirée
Edaine
Messages postés
62
Date d'inscription
mercredi 8 juin 2011
Statut
Membre
Dernière intervention
23 avril 2012
6 juil. 2011 à 09:46
6 juil. 2011 à 09:46
Merci :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
Modifié par michel_m le 6/07/2011 à 10:16
Modifié par michel_m le 6/07/2011 à 10:16
Bonjour
macro proposée
End Sub
demo
https://www.cjoint.com/?3GgkkFr4PZK
Pour installer
copier cette macro
clic droit sur le nom d'onglet "fedo" -visualiser le code
coller la macro
Michel
macro proposée
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig1 As Integer, col As Byte, source
Dim lig2 As Byte
If Not Intersect(Target, Range("T1:V1000")) Is Nothing And Target > 0 Then
lig1 = Target.Row
col1 = Target.Column
source = Cells(lig1, 1)
With Sheets("fet")
lig2 = .Range("B10:K29").Find("*", .Range("B10"), , , , xlPrevious).Row
If lig2 = 29 Then GoTo sature
lig2 = lig2 + 1
Select Case col1
Case Is = 20
.Cells(lig2, 2) = source
Case Is = 21
.Cells(lig2, 6) = source
Case Is = 22
.Cells(lig2, 9) = source
End Select
.Activate
End With
End If
Exit Sub
sature:
MsgBox "tableau de destination saturé", vbExclamation
End Sub
demo
https://www.cjoint.com/?3GgkkFr4PZK
Pour installer
copier cette macro
clic droit sur le nom d'onglet "fedo" -visualiser le code
coller la macro
Michel
Edaine
Messages postés
62
Date d'inscription
mercredi 8 juin 2011
Statut
Membre
Dernière intervention
23 avril 2012
6 juil. 2011 à 10:18
6 juil. 2011 à 10:18
Désolée, au boulot je peux pas lire le fichier joint... ^^'
Je vais tester ça .. Mais ça me semble si loin de ce que je pensai x_O
Bon allez je regarde ! ^^
Je vais tester ça .. Mais ça me semble si loin de ce que je pensai x_O
Bon allez je regarde ! ^^
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
Modifié par michel_m le 6/07/2011 à 10:21
Modifié par michel_m le 6/07/2011 à 10:21
Mais ça me semble si loin de ce que je pensai x_O
Merci quand même
Merci quand même
Edaine
Messages postés
62
Date d'inscription
mercredi 8 juin 2011
Statut
Membre
Dernière intervention
23 avril 2012
6 juil. 2011 à 10:21
6 juil. 2011 à 10:21
Wha, je comprends rien au code ...
Mais pourquoi une Worsheet Change?
Je veux le faire moi même en faite... C'est comme une sorte de synthèse.
Mais pourquoi une Worsheet Change?
Je veux le faire moi même en faite... C'est comme une sorte de synthèse.
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
6 juil. 2011 à 10:23
6 juil. 2011 à 10:23
...
Edaine
Messages postés
62
Date d'inscription
mercredi 8 juin 2011
Statut
Membre
Dernière intervention
23 avril 2012
Modifié par Edaine le 6/07/2011 à 10:29
Modifié par Edaine le 6/07/2011 à 10:29
:s
Enfaite mon fichier se modifie déjà en Worsheet Change ...
Du coup si je met cette macro en Worksheet Change elle va devenir cinglée ^^'
Enfaite mon fichier se modifie déjà en Worsheet Change ...
Du coup si je met cette macro en Worksheet Change elle va devenir cinglée ^^'
Edaine
Messages postés
62
Date d'inscription
mercredi 8 juin 2011
Statut
Membre
Dernière intervention
23 avril 2012
6 juil. 2011 à 10:48
6 juil. 2011 à 10:48
Voilà ce que j'ai commencé ..
Sub GRA()
Dim FeDo As Worksheet
Dim FeT As Worksheet
Set FeT = Sheets("Feuille Type")
Set FeDo = Sheets("Douchette")
i = 2
Do While FeDo.Cells(i, 1) <> ""
If FeDo.Cells(i, 21) > 0 Then
FeT.Range("F11").Offset(Application.WorksheetFunction.CountA(Range("F11:F29")), 0).Value = FeDo.Cells(i, 1).Value
FeT.Range("G11").Offset(Application.WorksheetFunction.CountA(Range("G11:G29")), 0).Value = FeDo.Cells(i, 2).Value
FeT.Range("H11").Offset(Application.WorksheetFunction.CountA(Range("H11:H29")), 0).Value = FeDo.Cells(i, 21).Value
a = a + 1
End If
i = i + 1
Loop
End Sub