rimbaut

Bonsoir, Depuis que j'ai acheté un portable Asus avec vista celui ci démarre très lentement. J'ai pourtant enlever certains programmes de l'onglet "démarrage". Est ce du à vista ? Si c'est celà je regrette XP Où bien comment remédier à celà. Merci pour votre aide

Bonjour à tous, J'ai installé, il y a quelques temps visual studio 6 mais seulement le CD 1. En effet le CD 2 et 3 ne m'est pas demandé. Je voudrais savoir, si possible, comment installer ces 2 CD (quel manip, quel répertoire ??). En outre, je me demande quel est l'intérêt de ces CD ? (il doit bien y en avoir un. Est ce des fichiers d'aide ou autre ?). Enfin, concernant les bases de données, vaut il mieux utiliser Fox Pro ou access ou Mysql ? Je sais cela fait beaucoup de questions mais je suis quelque peu curieux. En tous les cas, merci d'avance à toutes personnes qui voudra me répondre.

Bonjour, Je ne sais pas si c'est le bon forum, mais voilà ma question. Je recherche comment fonctionne un site qui vend des applications informatiques en telechargement sur le web. J'ai effectué des recherche sur google mais je n'ai rien trouvé. En effet, je sais qu'il est relativement aisé de télécharger des fichiers à partir d'un site mais dès lors que ces fichiers (applications) sont payants celà suppose de passer à la caisse. Pour cela, il existe des sites consacrés à çà comme paypal. Où je m'interroge est de savoir comment se structure le site après avoir effectué un paiement par exemple sur paypal. Cela suppose que le site en question reçoit un signal que la personne a payé mais ensuite où se situent les fichiers à télécharger ? sur une autre serveur consacré uniquement à cela ? Sur une autre site ? Je ne sais pas si ma question est bien clair. Enfin si quelqu'un peut m'indiquer quelques pistes je l'en remercie par avance. Bonne journée

Bonsoir, J'ai écrit quelques lignes de code qui consiste à transférer des données depuis la feuille "Balance" vers la feuille "K0" selon un format donné. Dans la feuille "Balance" les données apparaissent dans une colonne "débit" et dans une colonne "crédit". Cependant, que ce soit dans l'une ou l'autre colonne les nombres sont positifs, ce n'est que le numéro de compte qui permet d'assimiler un compte négatif comme par exemple le compte "139". Dans le code suivant, le transfert s'effectue normalement mais je voudrais que les comptes 119 et 139 apparaissent en négatifs dans la feuille k0 car ensuite je fais une somme.De ce fait mon résultat est faussé. Voici mon code : Sub TransfertCaprop() Worksheets("K0").Activate Dim x As Integer ' declaration de variables Dim y As Integer ' ligne dans feuille "Balance Dim y_debut_caprop, y_fin_caprop As Integer ' Ligne dans feuille "B900" Dim y2 As Integer ' Ligne dans feuille "B900" Dim y3 As Integer ' ligne pour date dans Feuille "B900" Dim Date_exercice1 As Date Dim Date_exercice2 As Date Dim Plus As String Dim Moins As String Dim total_caprop_1, total_caprop_2 As Long total_caprop_1 = 0 ' Initialisation des variables total_caprop_2 = 0 Date_exercice1 = Sheets("Accueil").Cells(36, 5).Value Date_exercice2 = Sheets("Accueil").Cells(32, 5).Value Plus = "+" Moins = "-" '--------------------------------------- ' L'entête du tableau y2 = 11 ' Ici on met en place les dates des exercices ainsi que leur format Sheets("k0").Cells(y2, 3).Value = Date_exercice1 'Affectation de la date d'exercice Sheets("k0").Cells(y2, 6).Value = Date_exercice2 Sheets("k0").Range("C" & y2 & ":f" & y2).Select ' travail sur le format With Selection.Interior .Color = RGB(255, 255, 153) End With With Selection.Font .Bold = True .Size = 12 End With With Selection .HorizontalAlignment = xlCenter End With With Selection.Borders .LineStyle = xlContinuous End With ' Ici on met en place les intitulés variations ainsi que en% + le format Sheets("k0").Cells(y2, 4).Value = "+" 'Affectation du nom à la cellule Sheets("k0").Cells(y2, 5).Value = "-" Sheets("k0").Range("d" & y2 & ":e" & y2).Select ' travail sur le format With Selection.Interior .Color = RGB(255, 255, 153) End With With Selection.Font .Bold = True .Size = 12 End With With Selection .HorizontalAlignment = xlCenter End With With Selection.Borders .LineStyle = xlContinuous End With y = 11 y2 = y2 + 2 '--------------------------------------- ' Les capitaux propres y_debut_caprop = y2 y_fin_caprop = y_debut_caprop Do While Sheets("Balance").Cells(y, 1).Value <> "" ' la boucle s'arrete quand la cellule est vide If Left(Sheets("Balance").Cells(y, 1).Value, 2) = "10" _ Or Left(Sheets("Balance").Cells(y, 1).Value, 2) = "11" _ Or Left(Sheets("Balance").Cells(y, 1).Value, 2) = "13" Then Call CopieLigneBilanPassif("Balance", y, "k0", y_fin_caprop) ' si capitaux propres négatifs If Left(Sheets("Balance").Cells(y, 1).Value, 3) = "119" _ Or Left(Sheets("Balance").Cells(y, 1).Value, 3) = "139" Then Call CopieLigneBilanActif("Balance", y, "k0", y_fin_caprop) End If total_caprop_1 = total_caprop_1 + Sheets("k0").Cells(y_fin_caprop, 6).Value total_caprop_2 = total_caprop_2 + Sheets("k0").Cells(y_fin_caprop, 3).Value y_fin_caprop = y_fin_caprop + 1 End If ' Fin de test y = y + 1 ' Compteur de la boucle, on incremente de 1 Loop ' fin de la boucle ' Code qui trace les cases Total + somme des cellules et variation y_fin_caprop = y_fin_caprop + 1 Sheets("k0").Cells(y_fin_caprop, 2).Value = "TOTAL BRUT" ' affectation de valeur à une cellule Sheets("k0").Cells(y_fin_caprop, 3).Value = total_caprop_2 Sheets("k0").Cells(y_fin_caprop, 3).NumberFormat = "# ##0.00" ' definition du format de la cellule Sheets("k0").Cells(y_fin_caprop, 6).Value = total_caprop_1 Sheets("k0").Cells(y_fin_caprop, 6).NumberFormat = "# ##0.00" Call FormateLigneTotalBilan("k0", y_fin_caprop) Call FormatGrilleBilan("k0", "a" & y_debut_caprop & ":f" & y_fin_caprop) End Sub En fait, il faut que je puisse transformer les données des comptes 119 et 139 qui sont des nombres positifs en nombres négatifs. Mais je ne sais pas comme l'on fait. Si quelqu'un'un peut m'aider je l'en remercie vivement

PS : J'aimerai aussi bien faire un cd de démarrage. Mais j'ailu qu'il fallait pour celà le cd officiel de windows. Or, je viens d'acheter un pc et il n'est plus fourni de cd. Alors comment faire

Bonsoir, Est il possible de créer une clé usb de boot de demarrage pour xp à la place d'une disquette ? Si oui, comment doit on procéder ? Merci d'avance pour votre aide

Bonjour à tous, Je viens d'acheter un ordinateur assemblé dont la carte mére est Asustek. Cependant, à ma grande surprise, je constate que je n'ai pas de son. J'ai détecté ma config et voilà ce qu'il en est : SYSTÉME D'EXPLOITATION Windows XP Edition familliale (build 2600) Service Pack 3 Navigateur web par défaut: Internet Explorer Client e-mail par défaut: Microsoft Office Outlook Antivirus: avast! antivirus 4.8.1229 [VPS 080926-0] 4.8.1229 RÉSUMÉ DE VOTRE CONFIGURATION Processeur : AMD Athlon 64 X2 Dual Core Processor 5200+ (2712Mhz) (L1: 128ko L2: 512ko ) Carte mère : SMBios version 2.5 ASUSTeK Computer INC. M2N-X Plus Rev x.xx Bios: American Megatrends Inc. 0208 10/23/2007 taille: 1024Kb Chipset : Northbridge: AMD-8131 Southbridge: NVIDIA MCP61 Mémoire : Barette de 2048 Mo 667 Mhz Manufacturer0 mémoire windows (cette valeur ne correspond pas exactement à la mémoire totale physique): 2047Mo Disque(s) dur(s) : MAXTOR STM3160215AS (149.05Go) PÉRIPHÉRIQUES IDE MAXTOR STM3160215AS 4.AAB (SATA, 149.05 Go, tampon: 2 Mo) LECTEURS CD/DVD TSSTcorpCDDVDW SH-S203D SB00 (DVD-R/DL sequential recording Recorder) TSSTcorpDVD-ROM SH-D163BSB01 (DVD-ROM) CARTES PCI/AGP Stockage nVidia Corporation:MCP61 IDE nVidia Corporation:MCP61 SATA Controller nVidia Corporation:MCP61 SATA Controller Affichage nVidia Corporation:G71 [GeForce 7300 GS] Multimedia nVidia Corporation:MCP61 High Definition Audio Mémoires nVidia Corporation:MCP61 Memory Controller nVidia Corporation:MCP61 Memory Controller Ponts nVidia Corporation:MCP61 LPC Bridge nVidia Corporation:MCP61 PCI bridge: MCP61 PCI bridge nVidia Corporation:MCP61 Ethernet nVidia Corporation:MCP61 PCI Express bridge: MCP61 PCI Express bridge nVidia Corporation:MCP61 PCI Express bridge: MCP61 PCI Express bridge nVidia Corporation:MCP61 PCI Express bridge: MCP61 PCI Express bridge Advanced Micro Devices [AMD]:K8 [Athlon64/Opteron] HyperTransport Technology Configuration: K8 [Athlon64/Opteron] HyperTransport Technology Configuration Advanced Micro Devices [AMD]:K8 [Athlon64/Opteron] Address Map: K8 [Athlon64/Opteron] Address Map Advanced Micro Devices [AMD]:K8 [Athlon64/Opteron] DRAM Controller: K8 [Athlon64/Opteron] DRAM Controller Advanced Micro Devices [AMD]:K8 [Athlon64/Opteron] Miscellaneous Control: K8 [Athlon64/Opteron] Miscellaneous Control Bus Series nVidia Corporation:MCP61 SMBus nVidia Corporation:MCP61 USB Controller nVidia Corporation:MCP61 USB Controller CLAVIER Clavier standard 101/102 touches ou clavier Microsoft Natural Keyboard PS/2 SOURIS Souris Microsoft PS/2 Souris HID ÉCRAN Écran Plug-and-Play( LCD MONITOR) PÉRIPHÉRIQUES USB CONNECTÉS Logitech, Inc. MX-1000 Cordless Mouse Receiver (USB RECEIVER) Selon celle dernière, est il possible de me dire d'où provient cette anomalie. Y a t'il une carte son ? Faut il installer un driver ? Si oui, lequel ? Merci pour votre aide précieuse

Bonjour à tous, Je constate que malgré que je supprime mes traces de Firefox ainsi que l'historique, il demeure dans la barre d'adresse des adresses de sites visités. Comment puis les supprimer dans Firefox ? Ces adresses non supprimés ont elles un lien avec les marques pages ? Est il possible m'aiguiller sur les manips à effectuer. Merci d'avance pour votre aide

Bonsoir kewlcat, J'ai rajouté cette ligne mais j'ai toujours une erreur et justement sur cette ligne : Parse error: syntax error, unexpected T_STRING in C:\wamp\www\ExerciceBdd\connexion.php on line 6 Voici le code : <?php mysql_connect("localhost", "root", ""); // Connexion à MySQL mysql_select_db("jeux_videophp"); // Sélection de la base coursphp $reponse = mysql_query("SELECT * FROM jeux_video"); // Requête SQL mysql_query() returns a resource on success, or FALSE on error // On fait une boucle pour lister tout ce que contient la table : while ($donnees = mysql_fetch_array($reponse) ) { ?> <p> <strong>Jeu</strong> : <?php echo $donnees['nom']; ?><br /> Le possesseur de ce jeu est : <?php echo $donnees['possesseur']; ?>, et il le vend à <?php echo $donnees['prix']; ?> euros !<br /> Ce jeu fonctionne sur <?php echo $donnees['console']; ?> et on peut y jouer à <?php echo $donnees['nbre_joueurs_max']; ?> au maximum<br /> <?php echo $donnees['possesseur']; ?> a laissé ces commentaires sur <?php echo $donnees['nom']; ?> : <em><?php echo $donnees['commentaires']; ?></em> </p> <?php }

Bonjour à tous, J'ai copié ce fichier afin de se connecter à une BDD en PHP. mais j'ai cette erreur : Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in C:\wamp\www\ExerciceBdd\Base.php on line 10 J'aimerai comprendre le pourquoi de cette erreur. Le fichier php est le suivant : <?php mysql_connect("localhost", "root", ""); // Connexion à MySQL mysql_select_db("jeux_videophp"); // Sélection de la base coursphp $reponse = mysql_query("SELECT * FROM jeux_video"); // Requête SQL // On fait une boucle pour lister tout ce que contient la table : while ($donnees = mysql_fetch_array($reponse) ) { ?> <p> <strong>Jeu</strong> : <?php echo $donnees['nom']; ?><br /> Le possesseur de ce jeu est : <?php echo $donnees['possesseur']; ?>, et il le vend à <?php echo $donnees['prix']; ?> euros !<br /> Ce jeu fonctionne sur <?php echo $donnees['console']; ?> et on peut y jouer à <?php echo $donnees['nbre_joueurs_max']; ?> au maximum<br /> <?php echo $donnees['possesseur']; ?> a laissé ces commentaires sur <?php echo $donnees['nom']; ?> : <em><?php echo $donnees['commentaires']; ?></em> </p> <?php } mysql_close(); // Déconnexion de MySQL ?> Merci pour votre aide

Bonjour, Je suis en train de réaliser un site et j'aimerai louer un espace pour la publicité. Cependant, je me demande s'il faut que je laisse un espace destiné à cet effet où si la régie publicitaire se charge de cela. Merci d'avance pour vos réponses

Exactement, c'est ce que je recherche. Est ce possible ?

Bonsoir, Je suis en train de découvrir les joies de la programmation web et j'utilise kompozer qui facilite grandement la tache. Cependant, je me demande s'il est possible d'inclure des fichiers excel dans et les lancer à partir de là. Je ne sais pas si je me fais bien comprendre Merci d'avance pour votreaide

Bonsoir, D'après ce que j'ai lu par ci pat là, je n'arrive pas à comprendre comment s'exécute une requête sql. Je me place du coté de l'utilisateur qui veut effectuer des tris sur une base de données ou quelques calculs. Il est évident qu'il n'a pas le moyen (sofware) d'écrire une telle requête. Donc comment peut il faire ces calculs ??? N'est il pas préférable, à l'instar de VB, d'avoir un bouton qui actionne différents traitements comme les tris ou les calculs ?

Bonjour, Je me pose la question de savoir s'il est possible d'exécuter une requete my sql avec un élement graphique (bouton par ex.). En cas de réponse négative, je ne vois pas comment un utilisateur lambda peut utiliser les bases de données. Si quelqu'un veut bien m'éclairer je le remercie par avance

Bonsoir à tous, J'ai un fichier dont la 1er colonne présente des références et la colonne 3 présente des quantités. Je voudrai supprimer les lignes dont les quantités sont à zéro. Pour ce faire j'ai écrit ce code mais il ne fonctionne pas. Je pense que celà vient de la condition de la boucle car par moment dans la colonne 1 la cellule est vide. Comment puis je remédier à celà ? Voici le code : Sub SupprimerLigne() Worksheets("Stockretraite").Activate Dim y As Integer y = 11 Do While Sheets("Stockretraite").Cells(y, 1).Value <> 0 If Sheets("Stockretraite").Cells(y, 3).Value = 0 Then Cells(y, 1).Select Selection.Delete Shift:=xlUp End If y = y + 1 Loop End Sub Merci à tous pour votre aide

Bonsoir à tous, J'ai cet algo qui fonctionne et somme toute classique car tiré du bouquin sur python et qui consiste à afficher une suite de 12 nombres dont chaque terme est égale au triple du précédent. Voici le code : >>> a, c = 1, 1 >>> while c < 13: ... print a, ... a, c = a *3, c+1 Ce que je ne comprends pas est que la variable "a " est initialisé à 1 et je ne vois pas comment elle peut évoluer par la suite. Merci à celui qui voudra m'éclaircir.

Bonjour sebdraluorg, En fait j'ai fait 2 boucles, une pour les entiers à 3 chiffres et l'autre pour les entiers à 4 chiffres. Ceci me permet de mieux structurer ma pensée. Merci beaucoup pour ton aide qui m'a été fort précieuse

Bonjour à tous, Je m'essaye à python et j'utilise pour celà Idle. Toutefois, il me met une erreur que je ne peux corriger si le else n'est pas vraiment indenté par rapport au if. Je voudrais savoir comment solutionné ce problème et notamment pourquoi je ne peux pas corriger mon erreur car un nouveau prompt s'affiche. Voici comment çà se présente : >>> a = 7 >>> if a % 2 == 0 : print "a est pair" else: File "<pyshell#55>", line 3 else: ^ IndentationError: unindent does not match any outer indentation level >>> a= 7 >>> if a % 2 == 0 File "<pyshell#57>", line 1 if a % 2 == 0 ^ IndentationError: unexpected indent >>> a = 7 >>> if a % 2 == 0: File "<pyshell#59>", line 1 if a % 2 == 0: ^ IndentationError: unexpected indent >>> a = 7 >>> if a % 2 == 0: print "a est pair" else: SyntaxError: invalid syntax >>> a = 7 >>> if a % 2 == 0: print "a est pair" else : SyntaxError: invalid syntax Merci pour votre aide

Euh, excuse moi, je ne vois pas quelle serait cette structure assez simple. Pourrais tu m'en dire un peu plus ? Je te remercie vivement

Si je procède ainsi celà prend en compte les 6037 etc... mais plus les 707??? Voici mon code ....... Do While Sheets("Balance").Cells(y, 1).Value <> "" ' la boucle s'arrete quand la cellule ' est vide s = Left(Sheets("balance").Cells(y, 1).Value, 4) If IsNumeric(s) Then lVal = CLng(s) Else lVal = CLng(Left(s, 3)) Select Case lVal Case 601 total_annee_1_601 = total_annee_1_601 + Sheets("balance").Cells(y, 3).Value total_annee_2_601 = total_annee_2_601 + Sheets("balance").Cells(y, 5).Value Case 6031 total_annee_1_6031Deb = total_annee_1_6031Deb + Sheets("balance").Cells(y, 3).Value total_annee_2_6031Deb = total_annee_2_6031Deb + Sheets("balance").Cells(y, 5).Value Case 6031 total_annee_1_6031Cred = total_annee_1_6031Cred + Sheets("balance").Cells(y, 4).Value total_annee_2_6031Cred = total_annee_2_6031Cred + Sheets("balance").Cells(y, 6).Value Case 6037 total_annee_1_6037Deb = total_annee_1_6037Deb + Sheets("balance").Cells(y, 3).Value total_annee_2_6037Deb = total_annee_2_6037Deb + Sheets("balance").Cells(y, 5).Value Case 60370 total_annee_1_6037Cred = total_annee_1_6037Cred + Sheets("balance").Cells(y, 4).Value total_annee_2_6037Cred = total_annee_2_6037Cred + Sheets("balance").Cells(y, 6).Value Case 607 total_annee_1_607 = total_annee_1_607 + Sheets("balance").Cells(y, 3).Value total_annee_2_607 = total_annee_2_607 + Sheets("balance").Cells(y, 5).Value Case 6097 total_annee_1_6097 = total_annee_1_6097 + Sheets("balance").Cells(y, 4).Value total_annee_2_6097 = total_annee_2_6097 + Sheets("balance").Cells(y, 6).Value Case 701 total_annee_1_701 = total_annee_1_701 + Sheets("balance").Cells(y, 4).Value total_annee_2_701 = total_annee_2_701 + Sheets("balance").Cells(y, 6).Value Case 706 total_annee_1_706 = total_annee_1_706 + Sheets("balance").Cells(y, 4).Value total_annee_2_706 = total_annee_2_706 + Sheets("balance").Cells(y, 6).Value Case 707 total_annee_1_707 = total_annee_1_707 + Sheets("balance").Cells(y, 4).Value total_annee_2_707 = total_annee_2_707 + Sheets("balance").Cells(y, 6).Value Case 708 total_annee_1_708 = total_annee_1_708 + Sheets("balance").Cells(y, 4).Value total_annee_2_708 = total_annee_2_708 + Sheets("balance").Cells(y, 6).Value End Select y = y + 1 ' Compteur de la boucle, on incremente de 1 Loop ' fin de la boucle Sheets("b100").Cells(8, 3).Value = total_annee_1_707 Sheets("b100").Cells(8, 4).Value = total_annee_2_707 Sheets("b100").Cells(10, 3).Value = total_annee_1_706 + total_annee_1_708 Sheets("b100").Cells(10, 4).Value = total_annee_2_706 + total_annee_2_708 Sheets("b100").Cells(9, 3).Value = total_annee_1_701 Sheets("b100").Cells(9, 4).Value = total_annee_2_701 Sheets("b100").Cells(13, 3).Value = total_annee_1_607 - total_annee_1_6097 Sheets("b100").Cells(13, 4).Value = total_annee_2_607 - total_annee_2_6097 Sheets("b100").Cells(14, 3).Value = total_annee_1_601 Sheets("b100").Cells(14, 4).Value = total_annee_2_601 Sheets("b100").Cells(20, 3).Value = total_annee_1_713 Sheets("b100").Cells(20, 4).Value = total_annee_2_713 Sheets("b100").Cells(26, 3).Value = total_annee_1_6037Deb - total_annee_1_6037Cred Sheets("b100").Cells(26, 4).Value = total_annee_2_6037Deb - total_annee_2_6037Cred Sheets("b100").Cells(34, 3).Value = total_annee_1_6031Deb - total_annee_1_6031Cred Sheets("b100").Cells(34, 4).Value = total_annee_2_6031Deb - total_annee_2_6031Cred ......

Bonjour sebdraluorg, OK pour ces instructions mais où est ce que je les place ? après le do while ou après chaque case ?

Merci pour ta réponse sebdraluorg, J'ai modifié le code comme tu me l'as indiqué. Toutefois, demeure le problème de compenser les 6037Deb par les 6037Cred. En effet, j'ai essayé de compensé mais celà ne marche pas et je ne sais pourquoi. Voici le code Sub TransfertCalculMarge() Worksheets("B100").Activate Dim x As Integer ' declaration de variables Dim y As Integer ' ligne dans feuille "Balance Dim y2 As Integer ' Ligne dans feuille "My B400" Dim Date_exercice1 As Date Dim Date_exercice2 As Date Dim Variat As String Dim En_pourcentage As String Dim total_annee_1_701 As Long Dim total_annee_1_707 As Long Dim total_annee_1_706 As Long Dim total_annee_1_708 As Long Dim total_annee_1_607 As Long Dim total_annee_1_601 As Long Dim total_annee_1_713 As Long Dim total_annee_1_6037Deb As Long Dim total_annee_1_6037Cred As Long Dim total_annee_1_6031Deb As Long Dim total_annee_1_6031Cred As Long Dim total_annee_1_6097 As Long Dim total_annee_2_701 As Long Dim total_annee_2_707 As Long Dim total_annee_2_706 As Long Dim total_annee_2_708 As Long Dim total_annee_2_607 As Long Dim total_annee_2_601 As Long Dim total_annee_2_713 As Long Dim total_annee_2_6037Deb As Long Dim total_annee_2_6037Cred As Long Dim total_annee_2_6031Deb As Long Dim total_annee_2_6031Cred As Long Dim total_annee_2_6097 As Long Dim lVal As Long total_annee_1_707 = 0 ' Initialisation des variables total_annee_1_706 = 0 total_annee_1_701 = 0 total_annee_1_607 = 0 total_annee_1_601 = 0 total_annee_1_713 = 0 total_annee_1_6037Deb = 0 total_annee_1_6037Cred = 0 total_annee_1_6031Deb = 0 total_annee_1_6031Cred = 0 total_annee_1_6097 = 0 total_annee_1_708 = 0 total_annee_2_707 = 0 ' Initialisation des variables total_annee_2_706 = 0 total_annee_2_701 = 0 total_annee_2_607 = 0 total_annee_2_601 = 0 total_annee_2_713 = 0 total_annee_2_6037Deb = 0 total_annee_2_6037Cred = 0 total_annee_2_6031Deb = 0 total_annee_2_6031Cred = 0 total_annee_2_6097 = 0 total_annee_2_708 = 0 Date_exercice1 = Sheets("Accueil").Cells(32, 5).Value Date_exercice2 = Sheets("Accueil").Cells(36, 5).Value Variat = "" En_pourcentage = "" y = 11 ' Boucle et condition afin de parcourir la colonne 1 de la balance et ' rechercher les n° cptes commencant par 601, 602, 603, 701, 706, 707 Do While Sheets("Balance").Cells(y, 1).Value <> "" ' la boucle s'arrete quand la cellule ' est vide lVal = CLng(Left(Sheets("balance").Cells(y, 1).Value, 3)) Select Case lVal Case 601 total_annee_1_601 = total_annee_1_601 + Sheets("balance").Cells(y, 3).Value total_annee_2_601 = total_annee_2_601 + Sheets("balance").Cells(y, 5).Value Case 6031 total_annee_1_6031Deb = total_annee_1_6031Deb + Sheets("balance").Cells(y, 3).Value total_annee_2_6031Deb = total_annee_2_6031Deb + Sheets("balance").Cells(y, 5).Value Case 6031 total_annee_1_6031Cred = total_annee_1_6031Cred + Sheets("balance").Cells(y, 4).Value total_annee_2_6031Cred = total_annee_2_6031Cred + Sheets("balance").Cells(y, 6).Value Case 6037 total_annee_1_6037Deb = total_annee_1_6037Deb + Sheets("balance").Cells(y, 3).Value total_annee_2_6037Deb = total_annee_2_6037Deb + Sheets("balance").Cells(y, 5).Value Case 60370 total_annee_1_6037Cred = total_annee_1_6037Cred + Sheets("balance").Cells(y, 4).Value total_annee_2_6037Cred = total_annee_2_6037Cred + Sheets("balance").Cells(y, 6).Value Case 607 total_annee_1_607 = total_annee_1_607 + Sheets("balance").Cells(y, 3).Value total_annee_2_607 = total_annee_2_607 + Sheets("balance").Cells(y, 5).Value Case 6097 total_annee_1_6097 = total_annee_1_6097 + Sheets("balance").Cells(y, 4).Value total_annee_2_6097 = total_annee_2_6097 + Sheets("balance").Cells(y, 6).Value Case 701 total_annee_1_701 = total_annee_1_701 + Sheets("balance").Cells(y, 4).Value total_annee_2_701 = total_annee_2_701 + Sheets("balance").Cells(y, 6).Value Case 706 total_annee_1_706 = total_annee_1_706 + Sheets("balance").Cells(y, 4).Value total_annee_2_706 = total_annee_2_706 + Sheets("balance").Cells(y, 6).Value Case 708 total_annee_1_708 = total_annee_1_708 + Sheets("balance").Cells(y, 4).Value total_annee_2_708 = total_annee_2_708 + Sheets("balance").Cells(y, 6).Value Case 707 total_annee_1_707 = total_annee_1_707 + Sheets("balance").Cells(y, 4).Value total_annee_2_707 = total_annee_2_707 + Sheets("balance").Cells(y, 6).Value End Select y = y + 1 ' Compteur de la boucle, on incremente de 1 Loop ' fin de la boucle Sheets("b100").Cells(8, 3).Value = total_annee_1_707 Sheets("b100").Cells(8, 4).Value = total_annee_2_707 Sheets("b100").Cells(10, 3).Value = total_annee_1_706 + total_annee_1_708 Sheets("b100").Cells(10, 4).Value = total_annee_2_706 + total_annee_2_708 Sheets("b100").Cells(9, 3).Value = total_annee_1_701 Sheets("b100").Cells(9, 4).Value = total_annee_2_701 Sheets("b100").Cells(13, 3).Value = total_annee_1_607 - total_annee_1_6097 Sheets("b100").Cells(13, 4).Value = total_annee_2_607 - total_annee_2_6097 Sheets("b100").Cells(14, 3).Value = total_annee_1_601 Sheets("b100").Cells(14, 4).Value = total_annee_2_601 Sheets("b100").Cells(20, 3).Value = total_annee_1_713 Sheets("b100").Cells(20, 4).Value = total_annee_2_713 Sheets("b100").Cells(26, 3).Value = total_annee_1_6037Deb - total_annee_1_6037Cred Sheets("b100").Cells(26, 4).Value = total_annee_2_6037Deb - total_annee_2_6037Cred Sheets("b100").Cells(34, 3).Value = total_annee_1_6031Deb - total_annee_1_6031Cred Sheets("b100").Cells(34, 4).Value = total_annee_2_6031Deb - total_annee_2_6031Cred End Sub Merci pour ton aide

Bonsoir, Tout d'abord pardon pour la reprise tardive de ce sujet. Mais je ne comprends pas ce que tu entends par "la cellule devant accueillir le resultat varie". Est ce celà dont tu veux parler Scuny : Sheets("b100").Cells(y2, 3).Value = total_annee_1 Si c'est celà , je veux placer le total des 707 dont une cellule bien définie, les 706 dans une autre cellule ect...

Bonjour, J'ai une balance qui se présente comme suit sur la feuille "Balance " Débit Crédit 60370000 Variat Stock V 42730,34 60370100 Variat Stock V.u. 29 859 60370400 Variat Stock V.o. 112448,89 60370500 Variat Stock Pr 34 040 60711200 Achats 150 000 60712000 Achats Transf 48 400 70450000 Vtes Travaux Ext 4234,93 70450002 Vtes Travaux Ext 35839,15 70610002 Ventes P. 1971,64 70620000 Vtes Main 23071,47 70620002 Vtes Main D'oeuvre 94842,74 70630002 Vtes M.o.ga 40658,43 70711100 Vtes V 73779,32 Ce que je voudrais faire est de faire le total des 607 (par exemple) ou des 603 ou encore des 707 et les recopier dans une cellule bien définie dans une autre feuille. Pour ce faire, j'ai écrit ce code, mais je trouve qu'il fait usine à gaz et je me demande s'il n'est pas possible de l'optimiser d'autant plus qu'il ne fonctionne pas très bien. En effet, parfois un montant d'un compte 6037 peur être débiteur mais le suivnat peut être créditeur. Or, je dois faire le total des 6037 et je ne sais comment faire. Donc mes propos révèlent 2 questions : - la 1er , peut on optimiser le code - la 2ième, comment faire la compensation débit, crédit et affecter ce solde dans une cellule appropriée d'une autre feuille. En effet, on constate que les 603 sont pour certains débiteurs et pour d'autres créditeurs. Voici mon code : Sub TransfertCalculMarge() Worksheets("B100").Activate Dim x As Integer ' declaration de variables Dim y As Integer ' ligne dans feuille "Balance Dim y2 As Integer ' Ligne dans feuille "My B400" Dim Date_exercice1 As Date Dim Date_exercice2 As Date Dim Variat As String Dim En_pourcentage As String Dim total_annee_1_701 As Long Dim total_annee_1_707 As Long Dim total_annee_1_706 As Long Dim total_annee_1_607 As Long Dim total_annee_1_601 As Long Dim total_annee_1_713 As Long Dim total_annee_1_6037 As Long Dim total_annee_1_6031 As Long Dim total_annee_2_701 As Long Dim total_annee_2_707 As Long Dim total_annee_2_706 As Long Dim total_annee_2_607 As Long Dim total_annee_2_601 As Long Dim total_annee_2_713 As Long Dim total_annee_2_6037 As Long Dim total_annee_2_6031 As Long total_annee_1_707 = 0 ' Initialisation des variables total_annee_1_706 = 0 total_annee_1_701 = 0 total_annee_1_607 = 0 total_annee_1_601 = 0 total_annee_1_713 = 0 total_annee_1_6037 = 0 total_annee_1_6031 = 0 total_annee_2_707 = 0 ' Initialisation des variables total_annee_2_706 = 0 total_annee_2_701 = 0 total_annee_2_607 = 0 total_annee_2_601 = 0 total_annee_2_713 = 0 total_annee_2_6037 = 0 total_annee_2_6031 = 0 Date_exercice1 = Sheets("Accueil").Cells(32, 5).Value Date_exercice2 = Sheets("Accueil").Cells(36, 5).Value Variat = "" En_pourcentage = "" y = 11 ' Boucle et condition afin de parcourir la colonne 1 de la balance et ' rechercher les n° cptes commencant par 707 Do While Sheets("Balance").Cells(y, 1).Value <> "" ' la boucle s'arrete quand la cellule ' est vide If Left(Sheets("Balance").Cells(y, 1).Value, 3) = "701" Then ' test cherchant 'les comptes 701 total_annee_1_701 = total_annee_1_701 + Sheets("balance").Cells(y, 4).Value End If ' Fin de test If Left(Sheets("Balance").Cells(y, 1).Value, 3) = "707" Then ' test cherchant 'les comptes 707 total_annee_1_707 = total_annee_1_707 + Sheets("balance").Cells(y, 4).Value End If ' Fin de test If Left(Sheets("Balance").Cells(y, 1).Value, 3) = "706" Then ' test cherchant 'les comptes 707 total_annee_1_706 = total_annee_1_706 + Sheets("balance").Cells(y, 4).Value End If ' Fin de test If Left(Sheets("Balance").Cells(y, 1).Value, 3) = "607" Then ' test cherchant 'les comptes 707 total_annee_1_607 = total_annee_1_607 + Sheets("balance").Cells(y, 5).Value End If ' Fin de test If Left(Sheets("Balance").Cells(y, 1).Value, 3) = "601" _ Or Left(Sheets("Balance").Cells(y, 1).Value, 3) = "602" Then ' test cherchant 'les comptes 707 total_annee_1_601 = total_annee_1_601 + Sheets("balance").Cells(y, 3).Value End If ' Fin de test If Left(Sheets("Balance").Cells(y, 1).Value, 3) = "713" Then ' test cherchant 'les comptes 707 total_annee_1_713 = total_annee_1_713 + Sheets("balance").Cells(y, 4).Value End If ' Fin de test If Left(Sheets("Balance").Cells(y, 1).Value, 1) = "6037" Then ' test cherchant 'les comptes 707 If total_annee_1_6037 > 0 Then total_annee_1_6037 = total_annee_1_6037 + Sheets("balance").Cells(y, 3).Value Else total_annee_1_6037 = total_annee_1_6037 + Sheets("balance").Cells(y, 4).Value End If End If ' Fin de test If Left(Sheets("Balance").Cells(y, 1).Value, 4) = "6031" _ Or Left(Sheets("Balance").Cells(y, 1).Value, 4) = "6032" Then ' test cherchant 'les comptes 707 total_annee_1_6031 = total_annee_1_6031 + Sheets("balance").Cells(y, 4).Value End If ' Fin de test y = y + 1 ' Compteur de la boucle, on incremente de 1 Loop ' fin de la boucle Sheets("b100").Cells(8, 3).Value = total_annee_1_707 Sheets("b100").Cells(10, 3).Value = total_annee_1_706 Sheets("b100").Cells(9, 3).Value = total_annee_1_701 Sheets("b100").Cells(13, 3).Value = total_annee_1_607 Sheets("b100").Cells(14, 3).Value = total_annee_1_601 Sheets("b100").Cells(20, 3).Value = total_annee_1_713 Sheets("b100").Cells(26, 3).Value = total_annee_1_6037 Sheets("b100").Cells(34, 3).Value = total_annee_1_6031 End Sub Merci pour votre aide