Ecrire résultats dans une feuille de synthese
Résolu/Fermé
mimi_1990
Messages postés
75
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
15 novembre 2010
-
Modifié par mimi_1990 le 15/07/2010 à 15:29
mimi_1990 Messages postés 75 Date d'inscription jeudi 1 juillet 2010 Statut Membre Dernière intervention 15 novembre 2010 - 16 juil. 2010 à 11:07
mimi_1990 Messages postés 75 Date d'inscription jeudi 1 juillet 2010 Statut Membre Dernière intervention 15 novembre 2010 - 16 juil. 2010 à 11:07
A voir également:
- Ecrire résultats dans une feuille de synthese
- Ecrire en gras sur whatsapp - Guide
- Lexer resultats - Télécharger - Sport
- Feuille de pointage excel - Télécharger - Tableur
- Ecrire en miroir - Guide
- Supprimer une feuille word - Guide
1 réponse
mimi_1990
Messages postés
75
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
15 novembre 2010
15
16 juil. 2010 à 11:07
16 juil. 2010 à 11:07
pas de réponses j'ai fini par trouver tout seul,
pour ceux que ça interesserait un jour je poste mon code !
pour ceux que ça interesserait un jour je poste mon code !
Dim search As Range Dim valeur2 As Variant Dim j, derlig2, numlig2 As Integer With Sheets("Théorique") derlig2 = .Cells(65536, 1).End(xlUp).row End With Sheets("Feuil3").Range("C2:C7").Value = "" For j = 2 To derlig2 With Sheets("Théorique") valeur2 = .Cells(j, 1).Value End With With Sheets("Réel").Columns(10) Set search = .Cells.Find(valeur2) If search Is Nothing Then 'MsgBox "Feuille Théorique: Le contrat" & valeur2 & " (ligne" & " " & j & ")" & " n'a pas été trouvé" Sheets("Feuil3").Select Range("C2").Select ActiveCell.Value = ActiveCell.Value & vbLf & valeur2 & " (ligne " & j & ")" Else 'Compare ClientID, Trim Price, Bank informations Sheets("Théorique").Select numlig2 = search.row CodeAetG = Sheets("Réel").Cells(numlig2, 4).Value * 10 ^ 5 + Sheets("Réel").Cells(numlig2, 5).Value If Val(Sheets("Théorique").Cells(j, 2).Value) <> Sheets("Réel").Cells(numlig2, 3).Value Then 'MsgBox "Feuille Théorique: Le code Client" & " (ligne" & " " & j & ")" & " est différent" Sheets("Feuil3").Select Range("C3").Select ActiveCell.Value = ActiveCell.Value & vbLf & Val(Sheets("Théorique").Cells(j, 2).Value) & " (ligne " & j & ")" If Val(Sheets("Théorique").Cells(j, 13).Value) <> Sheets("Réel").Cells(numlig2, 8).Value Then 'MsgBox "Feuille Théorique: Le Prix Trimestriel T.T.C." & " (ligne" & " " & j & ")" & " est différent" Sheets("Feuil3").Select Range("C4").Select ActiveCell.Value = ActiveCell.Value & vbLf & Val(Sheets("Théorique").Cells(j, 13).Value) & " (ligne " & j & ")" If Val(Sheets("Théorique").Cells(j, 3).Value) <> CodeAetG Then 'MsgBox "Feuille Théorique: Le Code Agence/Guichet" & " (ligne" & " " & j & ")" & " est différent" Sheets("Feuil3").Select Range("C5").Select ActiveCell.Value = ActiveCell.Value & vbLf & Val(Sheets("Théorique").Cells(j, 3).Value) & " (ligne " & j & ")" If Val(Sheets("Théorique").Cells(j, 4).Value) <> Sheets("Réel").Cells(numlig2, 6).Value Then 'MsgBox "Feuille Théorique: Le Numéro de compte" & " (ligne" & " " & j & ")" & " est différent" Sheets("Feuil3").Select Range("C6").Select ActiveCell.Value = ActiveCell.Value & vbLf & Val(Sheets("Théorique").Cells(j, 4).Value) & " (ligne " & j & ")" End If End If End If End If End If End With Next j