Contenu récent par aalex_38

Re : Import fichier txt dans Excel sans modification Bonjour à tous, Dans le cas du +, en général je rajoute ' devant afin qu'excel considère ce + comme du texte.

Re : Créer une fonction de mise en forme Bonjour, Pour appeler ta fonction, c'est plutôt : Sub faire_tableau() MiseEnForme Range("H1:J2") End Sub Nb: j'ai testé (sans le merge, je n'aime pas) et la fonction marche.

Re : Aide formule : valeur d'une colonne dépendante du contenu de 3 autres C'est marrant parce que dans un premier temps, j'ai écrit la formule sans le > 0 et puis au moment de poster, j'ai eu comme un doute, quel ... !

Re : Aide formule : valeur d'une colonne dépendante du contenu de 3 autres Bonjour, 2 Choses me posent question, pourquoi utiliser SOMMEPROD si tu veux tester chaque ligne, des Si peuvent suffire il me semble. Les conditions 2 et 3 s'excluent mutuellement, il faut faire un choix sur la...

Re : Rapatriement de données puis découpage automatique fichier excel Bonjour, Un exemple à adapter selon ton besoin Sub essai() Dim DerLig As Long Set F1 = ThisWorkbook.Worksheets("Feuille1") With F1 DerLig = .Range("A" & Cells.Rows.Count).End(xlUp).Row For i = DerLig To 1 Step -1...

Re : Remplacements caracteres bonjour, Regarde du côté de la fonction REPLACE, cela devrait te convenir Un exemple perso à adpater : Sub Selection_Feuille_addin() On Error GoTo fin Dim RRange As Range Set RRange = Selection If RRange Is Nothing Then GoTo fin...

Re : Changer de plage.....de cellules Si j'ai compris ce que tu veux, je modifierai le code comme ça : Private Sub Workbook_Open() Dim Cell As Range, Msg As String With Feuil1 For Each Cell In .Range("A4:A256") If Cell = "" Then result = MsgBox("Première Cellule...

Re : Fonction transposee Bonjour, Un exemple : Sub transpose_Multiple() Dim NomTableau(), Mplage As Range, Cpt As Long Dim F1 As Worksheet, i As Long, Derlig As Long, j As Integer, Dercol As Integer Set F1 = ActiveSheet ' Definir la feuille Const Ligne As Integer = 1 Const Colonne...

Re : rapprocher 2 fichier excel trés long Tu peux faire une recherche, comme indiqué dans l'aide VBA : FIND et F1 edit : je note la méthode de Jam, plutôt sympa !

Re : copier le format d'une cellule Le copiage spécial est une bonne solution non ? Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False

Re : Rechercher valeur dans tableau bonjour à tous, Si ton tableau dans l'onglet tableau est trié (c'est plus fiable), tu peux mettre cette formule dans la cellule B2 de ton onglet "a Completer", et l'étirer sur toute la colonne : =RECHERCHEV($A2;Tableau!$A$2:$B$19;2;0) Edit : la...

Re : icone "point interogation" userform Dans les propriétés de l'USF, il faut "whatthisbutton" a true pour afficher un ? cependant je ne crois pas que ceci répond entièrement à ta question

Re : multiplier des cellules Bonjour, A mon avis, la mise en forme conditionnelle ne sert pas à ça tu dois inscrire ta formule dans ta colonne W

Re : indiquer la ou les celulles sélectionnées en VBA Bonjour, Pour mettre des uns dans une selection, le code suivant fonctionne : Selection.Value = 1

Re : Conditions speciales et suppression de lignes bonjour, Un exemple : Sub essai_delete() Dim Derlig As Long, i As Long, ws As Worksheet Set ws = ThisWorkbook.Worksheets("Feuil1") With ws Derlig = .Cells(Rows.Count, 2).End(xlUp).Row For i = Derlig To 2 Step -1...