A L'AIDE !! Créer une incrémentation spéciale
Résolu/Fermé
Le_nouveau
-
13 févr. 2008 à 16:37
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 15 févr. 2008 à 04:30
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 15 févr. 2008 à 04:30
A voir également:
- A L'AIDE !! Créer une incrémentation spéciale
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer une liste déroulante excel - Guide
- Créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
7 réponses
J'ai oublié cela :D
Résultat attendu :
--------------------------------------------------
|nom | VIDE | DE1 | VIDE |
--------------------------------------------------
|commentaire| VIDE| DE2 | VIDE |
--------------------------------------------------
|cle | DE3 | nom2| DE4 |
--------------------------------------------------
|domaine | VIDE | Ref1 | VIDE |
--------------------------------------------------
|type | DE5 | Ref2 | VIDE |
--------------------------------------------------
|longueur | DE6 | Ref3 | VIDE |
--------------------------------------------------
|autorise | DE7 | Ref4 | VIDE |
--------------------------------------------------
DE1 = 'Feuille1'!$B$3
DE2 = 'Feuille1'!$G$3
DE3 = SI(OU('Feuille1'!$F$3=G4;'Feuille1'!$F$3=G5;'Feuille1'!$F$3=G6;'Feuille1'!$F$3=G7);"NON";"OUI")
DE4 = DE1
DE5 ='Feuille1'!$C$3
DE6 ='Feuille1'!$E$3
DE7 =SI(DE3="OUI";"NON";"OUI")
Merci d'avance, Vraiment si vous pouvez m'aider.
Merci
Résultat attendu :
--------------------------------------------------
|nom | VIDE | DE1 | VIDE |
--------------------------------------------------
|commentaire| VIDE| DE2 | VIDE |
--------------------------------------------------
|cle | DE3 | nom2| DE4 |
--------------------------------------------------
|domaine | VIDE | Ref1 | VIDE |
--------------------------------------------------
|type | DE5 | Ref2 | VIDE |
--------------------------------------------------
|longueur | DE6 | Ref3 | VIDE |
--------------------------------------------------
|autorise | DE7 | Ref4 | VIDE |
--------------------------------------------------
DE1 = 'Feuille1'!$B$3
DE2 = 'Feuille1'!$G$3
DE3 = SI(OU('Feuille1'!$F$3=G4;'Feuille1'!$F$3=G5;'Feuille1'!$F$3=G6;'Feuille1'!$F$3=G7);"NON";"OUI")
DE4 = DE1
DE5 ='Feuille1'!$C$3
DE6 ='Feuille1'!$E$3
DE7 =SI(DE3="OUI";"NON";"OUI")
Merci d'avance, Vraiment si vous pouvez m'aider.
Merci
oups je me suis trompé :
Resultat attendu :
--------------------------------------------------
|nom | VIDE | DE1 | VIDE |
--------------------------------------------------
|commentaire| VIDE| DE2 | VIDE |
--------------------------------------------------
|cle | DE3 | nom2| DE4 |
--------------------------------------------------
|domaine | VIDE | Ref1 | VIDE |
--------------------------------------------------
|type | DE5 | Ref2 | VIDE |
--------------------------------------------------
|longueur | DE6 | Ref3 | VIDE |
--------------------------------------------------
|autorise | DE7 | Ref4 | VIDE |
--------------------------------------------------
DE1 = 'Feuille1'!$B$4
DE2 = 'Feuille1'!$G$4
DE3 = SI(OU('Feuille1'!$F$4=G4;'Feuille1'!$F$4=G5;'Feuille1'!$F$4=G6;'Feuille1'!$F$4=G7);"NON";"OUI")
DE4 = DE1
DE5 ='Feuille1'!$C$4
DE6 ='Feuille1'!$E$4
DE7 =SI(DE3="OUI";"NON";"OUI")
Merci d'avance, Vraiment si vous pouvez m'aider.
Merci
Resultat attendu :
--------------------------------------------------
|nom | VIDE | DE1 | VIDE |
--------------------------------------------------
|commentaire| VIDE| DE2 | VIDE |
--------------------------------------------------
|cle | DE3 | nom2| DE4 |
--------------------------------------------------
|domaine | VIDE | Ref1 | VIDE |
--------------------------------------------------
|type | DE5 | Ref2 | VIDE |
--------------------------------------------------
|longueur | DE6 | Ref3 | VIDE |
--------------------------------------------------
|autorise | DE7 | Ref4 | VIDE |
--------------------------------------------------
DE1 = 'Feuille1'!$B$4
DE2 = 'Feuille1'!$G$4
DE3 = SI(OU('Feuille1'!$F$4=G4;'Feuille1'!$F$4=G5;'Feuille1'!$F$4=G6;'Feuille1'!$F$4=G7);"NON";"OUI")
DE4 = DE1
DE5 ='Feuille1'!$C$4
DE6 ='Feuille1'!$E$4
DE7 =SI(DE3="OUI";"NON";"OUI")
Merci d'avance, Vraiment si vous pouvez m'aider.
Merci
Raymond PENTIER
Messages postés
58393
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
17 096
14 févr. 2008 à 05:36
14 févr. 2008 à 05:36
J'ai dû mal comprendre quelle difficulté tu rencontres !
Il me semble qu'en sélectionnant les lignes 1 à 7, en faisant Copier, puis en faisant Coller dans les cellules A8, A15, A22 ... tu obtiens le résultat voulu, non ?
Il me semble qu'en sélectionnant les lignes 1 à 7, en faisant Copier, puis en faisant Coller dans les cellules A8, A15, A22 ... tu obtiens le résultat voulu, non ?
Bonjour,
Justement non !
moi aussi je pensais que ce serait aussi simple voila ce qui se passe :
Je rajoute les numeros de lignes :
N°ligne
| --------------------------------------------------
2 |nom | VIDE | DE1 | VIDE |
--------------------------------------------------
3 |commentaire| VIDE| DE2 | VIDE |
--------------------------------------------------
4 |cle | DE3 | nom2| DE4 |
--------------------------------------------------
5 |domaine | VIDE | Ref1 | VIDE |
--------------------------------------------------
6 |type | DE5 | Ref2 | VIDE |
--------------------------------------------------
7 |longueur | DE6 | Ref3 | VIDE |
--------------------------------------------------
8 |autorise | DE7 | Ref4 | VIDE |
--------------------------------------------------
9 Ligne vide
10 Ligne vide
| --------------------------------------------------
11 |nom | VIDE | DE1 | VIDE |
--------------------------------------------------
12 |commentaire| VIDE| DE2 | VIDE |
--------------------------------------------------
13 |cle | DE3 | nom2| DE4 |
--------------------------------------------------
14 |domaine | VIDE | Ref1 | VIDE |
--------------------------------------------------
15 |type | DE5 | Ref2 | VIDE |
--------------------------------------------------
16 |longueur | DE6 | Ref3 | VIDE |
--------------------------------------------------
17 |autorise | DE7 | Ref4 | VIDE |
--------------------------------------------------
Jusque la rien d'extraordinaire, l'incrémentatin se fait sans problème à la difference que même si les valeurs son correctes, elles pointent sur la ligne 12 et non 4
En clair j'obtient :
DE1 = 'Feuille1'!$B$12
DE2 = 'Feuille1'!$G$12
DE3 = SI(OU('Feuille1'!$F$12=G12;'Feuille1'!$F$12=G5;'Feuille1'!$F$12=G6;'Feuille1'!$F$12=G7);"N ON";"OUI")
DE4 = DE1
DE5 ='Feuille1'!$C$12
DE6 ='Feuille1'!$E$12
DE7 =SI(DE3="OUI";"NON";"OUI")
En fait il prends la valeur de la ligne de DE1 + 1 pour continuer son tableau. Etant donnée que que le DE1 du 2e tableau se trouve 9 lignes plus loins que celle du premier, la recherche se fait sur "ligne3+9=ligne 12".
C'est donc un problême qui parait simple mais coriace :D
Justement non !
moi aussi je pensais que ce serait aussi simple voila ce qui se passe :
Je rajoute les numeros de lignes :
N°ligne
| --------------------------------------------------
2 |nom | VIDE | DE1 | VIDE |
--------------------------------------------------
3 |commentaire| VIDE| DE2 | VIDE |
--------------------------------------------------
4 |cle | DE3 | nom2| DE4 |
--------------------------------------------------
5 |domaine | VIDE | Ref1 | VIDE |
--------------------------------------------------
6 |type | DE5 | Ref2 | VIDE |
--------------------------------------------------
7 |longueur | DE6 | Ref3 | VIDE |
--------------------------------------------------
8 |autorise | DE7 | Ref4 | VIDE |
--------------------------------------------------
9 Ligne vide
10 Ligne vide
| --------------------------------------------------
11 |nom | VIDE | DE1 | VIDE |
--------------------------------------------------
12 |commentaire| VIDE| DE2 | VIDE |
--------------------------------------------------
13 |cle | DE3 | nom2| DE4 |
--------------------------------------------------
14 |domaine | VIDE | Ref1 | VIDE |
--------------------------------------------------
15 |type | DE5 | Ref2 | VIDE |
--------------------------------------------------
16 |longueur | DE6 | Ref3 | VIDE |
--------------------------------------------------
17 |autorise | DE7 | Ref4 | VIDE |
--------------------------------------------------
Jusque la rien d'extraordinaire, l'incrémentatin se fait sans problème à la difference que même si les valeurs son correctes, elles pointent sur la ligne 12 et non 4
En clair j'obtient :
DE1 = 'Feuille1'!$B$12
DE2 = 'Feuille1'!$G$12
DE3 = SI(OU('Feuille1'!$F$12=G12;'Feuille1'!$F$12=G5;'Feuille1'!$F$12=G6;'Feuille1'!$F$12=G7);"N ON";"OUI")
DE4 = DE1
DE5 ='Feuille1'!$C$12
DE6 ='Feuille1'!$E$12
DE7 =SI(DE3="OUI";"NON";"OUI")
En fait il prends la valeur de la ligne de DE1 + 1 pour continuer son tableau. Etant donnée que que le DE1 du 2e tableau se trouve 9 lignes plus loins que celle du premier, la recherche se fait sur "ligne3+9=ligne 12".
C'est donc un problême qui parait simple mais coriace :D
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci à tous ceux qui ont lu ce topic !!!
C'est bon j'ai reussi. Je l'ai donc fait en VBA directement sur le meme Excel et je ferai donc un Copier coller Général ensuite.
Pour ceux que cela interesse : Voici le petit bout de code :
__________________________________________________
Sub tout()
l = 3
i = 1
pk = "PK"
pk1 = "PK1"
pk2 = "PK2"
pk3 = "PK3"
'copie du tableau'
Worksheets("Feuil4").Range("J1:M9").Select
Application.CutCopyMode = False
Selection.Copy
Do While Worksheets("Entreprises").Cells(l, 1).Value <> ""
'Recuperation des données'
nom = Trim(Worksheets("Entreprises").Cells(l, 2).Value)
letype = Trim(Worksheets("Entreprises").Cells(l, 3).Value)
longueur = Trim(Worksheets("Entreprises").Cells(l, 5).Value)
cle = Trim(Worksheets("Entreprises").Cells(l, 6).Value)
comm = Trim(Worksheets("Entreprises").Cells(l, 7).Value)
'Collage du tableau vide'
Worksheets("Feuil4").Cells(i, 1).Select
ActiveSheet.Paste
'Remplissage'
Worksheets("Feuil4").Cells(i, 3).Value = nom
Worksheets("Feuil4").Cells(i + 2, 4).Value = nom
Worksheets("Feuil4").Cells(i + 4, 2).Value = letype
Worksheets("Feuil4").Cells(i + 5, 2).Value = longueur
Worksheets("Feuil4").Cells(i + 2, 2).Value = cle
Worksheets("Feuil4").Cells(i + 1, 3).Value = comm
If (cle = pk Or cle = pk2 Or cle = pk3) Then
Worksheets("Feuil4").Cells(i + 2, 2).Value = "OUI ( " + cle + " )"
ElseIf cle <> "" Then
Worksheets("Feuil4").Cells(i + 2, 2).Value = "NON ( " + cle + " )"
Else: Worksheets("Feuil4").Cells(i + 2, 2).Value = "NON"
End If
l = l + 1
i = ((l - 2) * 9) - 8
Loop
End Sub
__________________________________________________
Voila Bonne fin de Journée à tous !!!!
C'est bon j'ai reussi. Je l'ai donc fait en VBA directement sur le meme Excel et je ferai donc un Copier coller Général ensuite.
Pour ceux que cela interesse : Voici le petit bout de code :
__________________________________________________
Sub tout()
l = 3
i = 1
pk = "PK"
pk1 = "PK1"
pk2 = "PK2"
pk3 = "PK3"
'copie du tableau'
Worksheets("Feuil4").Range("J1:M9").Select
Application.CutCopyMode = False
Selection.Copy
Do While Worksheets("Entreprises").Cells(l, 1).Value <> ""
'Recuperation des données'
nom = Trim(Worksheets("Entreprises").Cells(l, 2).Value)
letype = Trim(Worksheets("Entreprises").Cells(l, 3).Value)
longueur = Trim(Worksheets("Entreprises").Cells(l, 5).Value)
cle = Trim(Worksheets("Entreprises").Cells(l, 6).Value)
comm = Trim(Worksheets("Entreprises").Cells(l, 7).Value)
'Collage du tableau vide'
Worksheets("Feuil4").Cells(i, 1).Select
ActiveSheet.Paste
'Remplissage'
Worksheets("Feuil4").Cells(i, 3).Value = nom
Worksheets("Feuil4").Cells(i + 2, 4).Value = nom
Worksheets("Feuil4").Cells(i + 4, 2).Value = letype
Worksheets("Feuil4").Cells(i + 5, 2).Value = longueur
Worksheets("Feuil4").Cells(i + 2, 2).Value = cle
Worksheets("Feuil4").Cells(i + 1, 3).Value = comm
If (cle = pk Or cle = pk2 Or cle = pk3) Then
Worksheets("Feuil4").Cells(i + 2, 2).Value = "OUI ( " + cle + " )"
ElseIf cle <> "" Then
Worksheets("Feuil4").Cells(i + 2, 2).Value = "NON ( " + cle + " )"
Else: Worksheets("Feuil4").Cells(i + 2, 2).Value = "NON"
End If
l = l + 1
i = ((l - 2) * 9) - 8
Loop
End Sub
__________________________________________________
Voila Bonne fin de Journée à tous !!!!
Raymond PENTIER
Messages postés
58393
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
17 096
15 févr. 2008 à 04:30
15 févr. 2008 à 04:30
Mais non ! Il te suffit d'écrire $G$3 ou $G$12 au lieu de G12, selon tes besoins, dans la formule de DE3.
Mais, sans te vexer, si tu fais de gros efforts pour exposer ton problème, tu restes le seul à t'y retrouver, car connaissant les tenants et les aboutissants de ton fichier, sa logique et son objectif. Pour nous, simples lecteurs de tes messages, ça reste un peu du chinois ...
Mais, sans te vexer, si tu fais de gros efforts pour exposer ton problème, tu restes le seul à t'y retrouver, car connaissant les tenants et les aboutissants de ton fichier, sa logique et son objectif. Pour nous, simples lecteurs de tes messages, ça reste un peu du chinois ...