Recuperer des donnee dans ma base de données
Fermé
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
Modifié le 11 avril 2019 à 13:49
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 12 avril 2019 à 15:04
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 12 avril 2019 à 15:04
A voir également:
- Recuperer des donnee dans ma base de données
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Formules excel de base - Guide
- Effacer les données de navigation - Guide
2 réponses
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
11 avril 2019 à 13:50
11 avril 2019 à 13:50
je me suis trempe de lien et la jai mis le lien quil faut
https://www.cjoint.com/c/IDllW6o2MOY
https://www.cjoint.com/c/IDllW6o2MOY
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
Modifié le 12 avril 2019 à 15:13
Modifié le 12 avril 2019 à 15:13
jai mis ce code mais a chaque fois les lignes s'ecrasent
par exemple si jai des donnee dans la ligne 2 de ma premiere feuille et des donnée dans la ligne 2 de ma 2 eme feuille , je vais avoir sur ma feuille de synthese les données de la ligne 2 de ma feuille 2 ( ecrasement de la ligne 2 de F1 par F2)
le 2 eme probleme pour :
'Q : ca marche bien
mais pour les autres , C,D,P a chque jai une ligne qui saffiche mm si elle respecte pas les conditions
voici le code
par exemple si jai des donnee dans la ligne 2 de ma premiere feuille et des donnée dans la ligne 2 de ma 2 eme feuille , je vais avoir sur ma feuille de synthese les données de la ligne 2 de ma feuille 2 ( ecrasement de la ligne 2 de F1 par F2)
le 2 eme probleme pour :
'Q : ca marche bien
mais pour les autres , C,D,P a chque jai une ligne qui saffiche mm si elle respecte pas les conditions
voici le code
Sub nnnn()
Dim a, b(4) As Integer, i As Integer, f As Integer, m As Integer, L As Integer
Columns("H:M").ClearContents
a = Worksheets("NEW_VB_config").Range("o2:o12") 'nom des 11 feuilles
For i = 2 To 100
For L = 1 To 6
For f = 1 To 11 'boucle sur les feuilles
If a(f, 1) <> "" Then
With Worksheets(a(f, 1))
If .Range("ao" & i).Value <> "" And .Range("a" & i).Value = ActiveSheet.Range("a1").Value Then
For m = 1 To 4
b(m) = Mid(.Range("ao" & i), m, 1)
' Q
If ActiveCell.Activate Then
If ActiveCell.Row = 2 And ActiveCell.Column = 2 And b(1) = 1 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 3 And ActiveCell.Column = 2 And b(1) = 2 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 4 And ActiveCell.Column = 2 And b(1) = 3 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 5 And ActiveCell.Column = 2 And b(1) = 4 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
'C
ElseIf ActiveCell.Row = 2 And ActiveCell.Column = 3 And b(2) = 1 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 3 And ActiveCell.Column = 3 And b(2) = 2 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 4 And ActiveCell.Column = 3 And b(2) = 3 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 5 And ActiveCell.Column = 3 And b(2) = 4 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
'D
ElseIf ActiveCell.Row = 2 And ActiveCell.Column = 4 And b(3) = 1 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 3 And ActiveCell.Column = 4 And b(3) = 2 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 4 And ActiveCell.Column = 4 And b(3) = 3 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 5 And ActiveCell.Column = 4 And b(3) = 4 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
'P
ElseIf ActiveCell.Row = 2 And ActiveCell.Column = 5 And b(4) = 1 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 3 And ActiveCell.Column = 5 And b(4) = 2 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 4 And ActiveCell.Column = 5 And b(4) = 3 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
ElseIf ActiveCell.Row = 5 And ActiveCell.Column = 5 And b(4) = 4 Then
ActiveSheet.Cells(i, L + 7) = .Cells(i, L)
End If
End If
Next m
End If
End With
End If
Next f
Next L
Next i
End Sub