Ayoros

coucou manly (et à toutes et à tous) j'espère que t'as pu profiter quand même de tes vacances ! bon je dois retourner bosser ! A plus dans l'bus !

WAZAAAAAAAAAAAAAAAAAAAAAA

Ten Years after, ça c'est du lourd !! si seulement j'avais pu avoir 18 ans à cette époque... Alvin Lee c'est toi le meilleur !!! Good Morning Little Scoolgirl ici et là. et bien sûr I'm going home Edit : nan mais sérieux, trop énorme Alvin Lee... dire que des gens ont vu ça en vrai... spa juste !!!! OMFG !

tsss je faisais de la pub pour la colline de Sion

Ce code fonctionne très bien chez moi, j'ai rajouté l'activation du premier onglet : Sub Trier_tableau() Dim compteur As Integer compteur = 1 Sheets(1).Activate Range("A6:A111").Select For Each Cell In Selection If Cell.Value > 100 Then Cells(compteur, 2).Value = Cell.Value compteur = compteur + 1 End If Next End Sub Je suis sous Excel 2003 XP sp2

Rhâââ, j'ai mis 5min et 28 secondes...

ENORME ce duo, j'étais tombé dessus par hasard, la ligne de basse, les deux batterie et l'intro de the house of rising sun, tout bonnement énorme !!!

Domrémy-la-pucelle !!! au pif comme on était à Sion juste avant... d'ailleurs je vous recommande à tous d'y faire un tour c'est magnifique !!!

Bonsoir, attention tu confonds le type Range et le type Integer ici !!! En fait si ta plage que tu compares à 100 est fixe, tu n'as pas besoin de lig et col comme tu l'entends, car la boucle for each parcoura cette plage cellule par cellule. En revanche, tu as besoin d'un compteur pour la copie dans la colonne 2 : Sub Trier_tableau() Dim compteur as Integer compteur=1 Range("a6:a100").Select 'MODIFICATION FAITE For Each Cell In Selection 'MODIFICATION FAITE If Cell.Value > 100 Then Cells(compteur, 2).value=cell.value 'je recopie la valeur de la cellule en question dans la colonne 2 si sa valeur est supérieure à 100 compteur = compteur + 1 'j'incrémente mon compteur pour passer au rang suivant dans la colonne 2 End If Next End Sub Dis moi si ça marche, bon courage, Ayoros.

Bonjour, Voici quelques conseils qui te seront utiles j'espère pour commencer : Je ne pense pas qu'un Select Case te soit utile ici, tu peux sélectionner ta plage A grâce à un Range puis parcourir toutes tes cellules par une boucle For Each : Range("Première cellule de la Plage A":"Dernière cellule de la Plage A").select For each cell in selection Tes actions Next Après pour la comparaison de la plage B tout dépend comment fonctionnera ta macro : invite utilisateur ? plage fixe ou variable ? ... Et enfin, pour écrire dans ta colonne C, tu peux utiliser la propriété Value de Range ou Cells. Si tu peux être plus précis, les conseils pourraient l'être aussi. Bonne chance, Ayoros.

T'as les doigts trop petits pour atteindre les touches avec accents ?

Salut à tous, Je reviens après une bonne semaine de vacances Reposé, frais, dispo plus boulet que jamais Bonne soirée à toutes et à tous.

Bonjour à tous, Pour en revenir à ta question initiale rimbaut, si tu écris une procédure ou une fonction dans un module, et que tu veux associer ce code à un contrôle comme un bouton par exemple, ce n'est pas compliqué. Tu te places sur l'onglet (donc sous Excel et non Visual Basic Editor) où tu veux insérer ton bouton. Dans la barre d'outils tu peux ajouter ceux concernant VBA, ensuite tu pourras ajouter un bouton (en passant le curseur de la souris sur les différents contrôles l'un t'indiqueras le bouton). Le bouton une fois placé, tu double-cliques dessus, et une procédure évènementielle s'ouvrira dans la page de code associé à cet onglet et non dans un module. Cette procédure aura pour nom CommandClick_Button1 (ou un truc dans le genre). Dans cette procédure tu pourras appeler ta fonction ou la procédure de ton module. En espérant ne pas arriver trop tard dans les débats , Ayoros.

Thorgal, contrairement à ce que tu prétends, tu ne dis pas que des conneries... loin de là !!! D'ailleurs j'en profite pour mettre ça , je crois que je l'ai déjà mis (mais j'ai la flemme de vérifier et puis de toute façon elle est trop belle cette chanson ) Vlà la version originale.

ouééééé Manly :P ah les vacances... j'espère que tu profites tout tout et tout même s'il pleut ! Dis bonjour aux escargots pour moi Moi je pars demain, je suis trop content, c'était chaud au taf depuis un mois... c'est pas une vie d'être stagiaire

C'est cool malgré son départ on sera pas dépaysé...

Il y adeux choses que me semblent bizarres : 1) tu boucles sur lig de 3 à 5000 mais juste après tu écris lig=3 ? 2)Il manque une parenthèse qui ferme ton range qui doit être sélectionné. Ensuite si tu veux faire cela sur l'onglet 2, je mettrais onglet2.Range(... Je ne suis pas sûr que select (onglet2) fasse quelquechose.

Salut, ce bout de code devrait t'aider si j'ai bien compris ton besoin Je suppose que ta plage est la colonne A avec les 100 premières cellules et que tu les copie dans l'onglet 2 si leur valeur est strictement supérieure à 100. dim i as integer dim j as integer 'i et j sont les ligne et colonne des cellules que tu recopies dans l'onglet 2 i=0 j=0 Onglet1.Range("A1:A100").select For each cell in selection If cell.value>100 then onglet2.cells(i,j).value=cell.value i=i+1 j=j+1 end if Next Je previens aussi que je n'ai pas pu testé ce code, il y a peut-être des modifs à opérer. Bonne chance, Ayoros.

Mais nan, tu dois juste être un peu maniaque ou psycho-rigide, ça m'arrive aussi. Faut pas te retenir (comme pour Bluemonday quand elle pète ses coups de gueule) sinon tu seras névrosée. Tu vois là je deviens chiant Bonne nuit DK fais de beaux rêves Et à vous tous aussi bien sûr !!!

Ouéééé Jean mimi, vive les Fleatwood mac Tenez écoutez moi ça Hoodoo de Muse, c'est génial. et puis celle-là aussi Feeling Good une reprise de Nina Simone par Muse

Je me disais que mes vannes scatos pipi-caca étaient nazes, mais finalement, je les aime bien.

Si quand tu rotes, ça fait comme quand tu pètes, évites de boire des sodas

J'espère que ça fait pas trop mal de péter par l'orifice buccal

Tout à fait, les post de DK sont trop longs...

Salut, vous avez raison à force de moins fréquenter zeb je me déboulettise, et en tant que membre n°2, c'est une honte... C'est DK elle a déteint sur moi Concernant les capotes, c'est une philosophie de vivre, faut toujour avoir une capote sur soi... ben ouais, les envies de bombe à eau ça prévient pas salut miss, mais là pour ed c'est une méga insulte....