Résultats de la recherche

bonjour céline voila le code vba pour faire un lien hypertexte vers cette page : ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='Lien supprimé j'espere que cela t'aidera

bonjour fm16 =sous.total(4;a1:a1000) je m'explique la fonction sous.total peut faire plusieurs opérations selon le paramètre (en gras) 1 MOYENNE 2 NB 3 NBVAL 4 MAX 5 MIN 6 PRODUIT 7 ECARTYPE 8 ECARTYPEP 9 SOMME 10 VAR 11 VAR.P voila qui j'espère répond à ta demande...

bonjour jimix voila une solution : soit en A les années en b les taux (avec 10% = 10) alors en c on a =SI(A1<=20;SI(B1<=10;3,2;SI(B1>20;2,7;2,9));SI(B1<=10;3,6;SI(B1>20;3,15;3,1))) voila une solution qui fonctionne en espérant que cela te convienne

bonjour thri voila le code VBA pour un collage spéciales evc importation du format sub a() Selection.Copy Range('C3').Select Selection.PasteSpecial Paste:=xlAll end sub j'espère que cela te conviendra

bonjour edy voila un code qui fonctionne ;) Sub aaa() For i = 1 To Rows(65536).End(xlUp).Row If Rows(i).Font.Bold = True Then Range('c' & i) = 'x' Else End If Next End Sub j'espère que cela te conviens désolé hervé je t'avais pas vu :ohmy: Message édité par...

bonjour hasardeux et jeromegmc voici un petit code qui permet d'effacer le contenu des cellules de font jaune (colorindex=6) Sub essai() Dim cell As Range For Each cell In Selection If cell.Interior.ColorIndex = 6 Then cell.ClearContents Else End If Next End Sub en...

bonjour il me semble que la limite d'un factoriel sous excel et de 170 c'est a dire que FACT(171)=#NOMBRE! cela est peut être la raison de ton problème

salut avec 1.57 en largeur de colone et 12 en hauteur de ligne tu devrais avoir un carré j'espère que cela poura t'aider

voila un exemple qui le fait sur plusieur ligne ( jusqu'a la dernière remplie) [file name=mail_20050712170003.zip size=11441]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mail_20050712170003.zip[/file]

boujour tout le monde voila un fichier avec un exemple [file name=mail_20050712155120.zip size=10866]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mail_20050712155120.zip[/file] et voici le code VBA Sub mail() Dim a, b, c, d, e, f a = Selection For i =...

salut à tous voila un exemple de ce qui traine dans la zone téléchargement concernant les stocks Lien supprimé par contre amine tu devrais lire la charte avant de poster désolé trop lent Message édité par: fifou_istb, à: 12/07/2005 13:19

bonjour voila avec des lignes [file name=graphmoy_20050711111013.zip size=2922]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/graphmoy_20050711111013.zip[/file]

bonjour voila un petit vba qui devrait allez For i = 1 To Len(Selection) b = Mid(a, i, 1) If b = '/' Or b = '^' Then c = i GoTo suite Else End If Next suite: For j = c + 1 To Len(Selection) b = Mid(a, j, 1) If b = '/' Or b = '^' Then...

bonjour tous le monde voici un exemple [file name=usf.zip size=10115]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/usf.zip[/file] j'espère que ça convient

je rejoins le fichier [file name=graphmoy.zip size=3232]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/graphmoy.zip[/file]

bonjour j'ai fait quelque chose, c'est pas très pro mais ça marche je joins le fichier Message édité par: fifou_istb, à: 06/07/2005 15:42

re voila je t'ai fait un petit code VBA qui te fait ça: Sub concatener() Dim a, b For i = 1 To Range('b1').End(xlDown).Row a = Range('b' & i).Value b = a & ';' & b Next Range('d1').Value = b End Sub voila voila

bonjour je pense qu'il sufit de remplacer le 2 par F2 et ça devrait marché voila

bonjour riric peux tu joindre un fichier (en .zip et -50K et nom simple) exemple stp afin de compléter ta demande et facilité la comprension. merci

bonjour riric peux tu joindre un fichier (en .zip et -50K et nom simple) exemple stp afin de compléter ta demande et facilité la comprension. merci