Contenu récent par RICO1972

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