Résultats de la recherche

Re : déplacement du curseur par macro Salut, Sheets("base").Activate Cells(Sheets("recherche").[I2].Value,"C").Select C'tout !

Re : Afficher contenu variable à l'ouverture sous conditions précises Sans moi. Je trouve que cela temoigne vraiment d'un manque de respect pour les gens qui t'aident que de rajouter des informations au fur et a mesure sans les avoir jamais mentionnées avant. Je ne vois pas ce qui t'empechait...

Re : Afficher contenu variable à l'ouverture sous conditions précises Salut, Desolé mais tu n'es pas tres clair : qu'entends tu par "un fusionnement de deux lignes ?" Enfin, apparement ca ne pose pas de probleme donc je laisse de coté. Mais ensuite, je ne vois pas ce que tu veux dire...

Re : Afficher contenu variable à l'ouverture sous conditions précises Voici un essai en piece jointe.

Re : Ou en suis-je dans mon code??? Tu peux utiliser la procedure suivante : Private Sub Compteur(ByVal i As Integer) Application.StatusBar = "Etape " & i & " / 13" End Sub que tu appelles a chaque etape du code que tu veux afficher : Call Compteur(1) Call Compteur(2) ...

Re : Combiner des SI(Recherche) Le probleme vient de la fonction CHERCHE, qui est faite pour renvoyer la position de depart d'une chaine de depart dans une autre, et qui par consequent, si la chaine recherchée n'existe pas a l'endroit ou elle est cherchée, renvoie une erreur. Tu peux utiliser...

Re : Recherche dans plusieurs fichiers Bonsoir, Voici un essai sur le fichier Resumé.

Re : Boucle du type For Each qui recherche une valeur partiel.... Il faut utiliser la fonction like, comme en SQL Dim oVerif Const sVerif as string = "*514123*" oVerif = Cells(x,y).Value Like sVerif If oVerif = True Then 'Si la condition est verifiée... Else 'Sinon... End If

Re : Cette Worksheet_Change fonctionne sous 2003, et plante sous 2010 Le probleme est ici : Select Case Target.Value ' Calcul du montant en fonction de la durée de présence et du grade Case 1 To 3 If Grade = "LTN" _ Then Target.Value =...

Re : récupérer les 10 noms correspondant au 10 plus grandes valeurs sur plusieurs feu Un petit essai en piece jointe, j'ai mis les formules dans le colonnes juste a coté pour que tu puisses comparer les resultats obtenus/souhaités. Le probleme c'est que si ton nombre de feuilles est variable...

Re : VBA recherche automatique @ Caroted : pas de quoi :) @ natorp : Bonjour, Oui c'est possible, par contre ca ne selectionnera que la premiere ligne concernée, si il y a plusieurs propriétés dans la meme ville. Un exemple en piece jointe, j'ai commenté la ligne concernée dans le...

Re : VBA recherche automatique Arf, du coup c'est un peu plus compliqué, il faut aller lire les données de chaque feuille au lieu de simplement lire le nom des feuilles, tout en gardant la correspondance de la source des données afin de pouvoir afficher la feuille correspondant a la veille...

Re : Si et Sauf si en utilisant la fonction ET ? SI(ET(U3<>"";T3>=N3);"MESSAGE";"")

Re : VBA recherche automatique Hello, Ci joint un exemple avec un Userform.

Re : envoi pdf par mail via wlmail Certainement que le raccourci claver a changé, et donc le SendKeys n'envoie plus la bonne combinaison de touches...

Re : Traduire SOMMEPROD en VBA tu peux utiliser la fonction que j'ai écrit, en changeant juste les données Set Plage1 = Range("B1:B9") Set Plage2 = Range("C1:C9") avec les plages que tu souhaites comparer, ca devrait marcher. Et pour le coup, elles n'ont meme pas besoin d'etre identiques...

Re : Traduire SOMMEPROD en VBA Hello, A mon avis il vaut mieux essayer de transcrire le fonctionnement de la formule, plutot que d'essayer de réécrire celle-ci. Par exemple: Sub SumProductSimul() Dim Plage1 As Range, Plage2 As Range Dim Cel1 As Range, Cel2 As Range Dim i...

Re : lien du bouton selon la valeur d'une liste Sub Bouton3_Clic() If Sheets("Menu").Range("B7").Value <>"" Then Sheets(Sheets("Menu").Range("B7").Value).Select Else MsgBox"Pas de nom !" End If End Sub

Re : lien du bouton selon la valeur d'une liste J'ai pourtant utilisé le fichier que tu as mis en exemple. Ou alors, tu as laissé ta cellule B7 vide...

Re : lien du bouton selon la valeur d'une liste Bonjour, Sheets(Sheets("Menu").Range("B7").value).select