Résultats de la recherche

Re : Help ... Envoyer Vers Salut wilfried_42, j'ai dejà essayé ça mais ça fonctionne pas ... l'icone apparait pendant la manip mais dès que je ferme la personnalisation, l'icone disparait !!! HELLLLLLLLLLLLLLLLLLLPpppppppppppppppppp !

Salut le FORUM, je suis sur une version Excel 2003 et suite à mauvaise une manip j'ai perdu le bouton : Envoyer vers ... du menu Fichier. SI kelkun sait comment le réactiver ça m'enleverrais une épine du pied. Je vous en remercie par avance. RICO

Re : extraire valeur d'une cellule et la placer dans une textbox d'une userform Salut Idexplorer, teste ce code : TextNom.Value = Sheets("xxx").Range("B6").Value @+ RICO arf pas assez rapide ... salut pierrot93 et lapix

Re : Liaison de deux tables dans un listbox Salut Bebere, c'est parfait ... c'est exactement ce que je cherchais !!!! MERCI BEAUCOUP @+ un RICO heureux ....

Re : Liaison de deux tables dans un listbox Salut Berbere, c'est pas exactement cette solution que je cherche mais toutefois, je vais pourvoir utiliser ton code pour une autre appli. Je t'en remercie. RICO

Re : Liaison de deux tables dans un listbox Re, je poste un fichier en exemple. Merci pour votre aide. RICO

Bonjout à tous, est-il possible de lier deux tables (avec bien évidememnt un ID commun) sur listbox. J'ai cherché ds le forum et j'ai rien trouvé sur le sujet. Au besoin je peux envoyer un bout de fichier pour exemple. Je vous en remercie par avance. RICO

Re : Graphique ==> la légende au milieu quand resultat négatif ? Salut Celeda, teste ce code et dit moi si cela te convient : Sub Macro1() ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.PlotArea.Select ActiveChart.Axes(xlCategory).Select With...

Re : si pas valeur xx dans colonne, alors ... (vba) Re Darnel, ce code arrete la procédure dès lors que dans ta plage de cellule : la colonne AB il rencontre une cellule vide. Rajoute : .value si tu veux la valeur Poste un fichier et on adapte selon tes besoins ... decrit ce que tu veux faire...

Re : formule avec Cherche Salut JJ1, Jocelyn et Tibo le tout réunit dans la mm formule : =SI(ET(ESTNUM(CHERCHE(6;A1));ESTNUM(CHERCHE(4;A1)));0;SI(OU(ESTNUM(CHERCHE(6;A1));ESTNUM(CHERCHE(4;A1)));0;1)) RICO

Re : si pas valeur xx dans colonne, alors ... (vba) Re Darnel, teste et dit moi. Le next se place après le End if : For ligne = 1 To Range("AB65536").End(xlUp).Row If Cells(ligne, 1) = "" Then Exit Sub Else Selection.AutoFilter Field:=28, Criteria1:="surcouf"...

Re : si pas valeur xx dans colonne, alors ... (vba) Salut Darnel, Teste ce code, je pense que ton pb vient tu teste toute la colonne et non chaque cellule...sinon j'ai pas bien compris. For ligne = 1 To Range("AB65536").End(xlUp).Row If Cells(ligne, 1) = "" Then exit sub Else...

Re : # comment le transformer en zéro Salut Panama, tu peux essayer cette formule : = SI(ESTERREUR(recherchev(....));0;recherchev(....)) Sinon poste un exemple. @+ RICO

Re : Ouverture d'un fichier par macro pour modification Re Olivier, poste ton fichier avec le code. Rico

Re : Help compteur Salut Antoine, plusieurs formules possibles , NB.SI, SOMMEPROD etc ... essaye Si Antoine est écrit en A1 tu tapes en B1 =NB.SI(Feuil2!A:A;A1) @+ RICO Oups ... Salut Feutrine

Re : Texte en couleur sous condition Salut julescesar75 et Lagache, essaye cette formule =OU(A1="OUI";A1="NON") @+ RICO Oups Désolé MJO pas rafraichi ..Salut MJO .. au moins on est OK sur la formule

Re : Ouverture d'un fichier par macro pour modification Salut olic95, je te propose une macro qui s'excecute avant la fermeture du classeur, à placer dans la VBA : thisWorbook : Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "voulez vous imprimer le document", vbYesNo If...

Re : Couleur Cellule Salut nklmb et Lapix, regarde ce fil https://www.excel-downloads.com/threads/ligne-active.70518/ tu va surement trouver ton bonheur. @+ RICO

Re : Incrémentation Salut Popi14, place ces deux codes dans la VBA de la feuille1 par exemple, mais attention cela ne fonctionne que si tu clik ou DbldClik dans la colonne A Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> (1) Then Exit Sub...

Re : click droit ---> menu personalisé Salut, pas trop compris ce que tu cherches exactement mais tu peux te créer une barre outils personnalisé où tu mets le nbre de boutons souhaités .... RICO pS : Salut hervé ... pas rafraichi .. arf il te manque le fichier