Contenu récent par A l l i g a t o r 427

Re : Formule pour effacer des doublons Hello Tu peux procéder avec cette formule (à mettre en E2 puis à recopier dans les cellules du dessous) =SUBSTITUE(SUBSTITUE(A2;B2;"");C2;"")

Re : Tirage au sort Hello >Drako_APT Si tu regardes dans le code VBA, tu verras le mot de passe : ***

Re : Supprimer un apostrophe dans toutes les cases d'un fichier. Hello Tu peux réaliser cela tout seul en utilisant l'outil: Enregistreur de macros (Il faut aller dans le menu Outils/Macros/Nouvelle Macro) Cela te donnera le code pour la macro que tu désires

Re : Listview Hello >Didier972 Ton problème de contrôles https://www.excel-downloads.com/threads/les-controles-supplementaires-vba-excel.172135/ est résolu ? Tu peux de nouveau avoir accès à la ListView ? Ou tu as un deuxième PC qui n'a pas ce problème ?

Re : Centrer texte MsgBox Hello Un centrage "Canada Dry" avec ce qui suit Sub MacroMsgBox() MsgBox Space(12) & "Ne pas quitter" & vbCrLf & Space(12) & "Enregistrement interdit...!" & vbCrLf & Space(12) & "Ca va être effacé " End Sub

Re : Trie colonne avec macro Hello >Paritec Comment tu as fait pour avoir un fichier exemple ??? J'en vois aucun dans cette discussion posté par Silence.

Re : cnversion formule en vba Et en utilisant SpecialCells, ça joue aussi Private Sub Worksheet_Activate() On Error Resume Next Set a = Union(Range("O7:O166"), Range("P7:P166")).SpecialCells(xlCellTypeConstants) a.Offset(, -14).Resize(, 1) = "Not Valide" End Sub

Re : cnversion formule en vba Hello C'est aussi possible avec un IIF Private Sub Worksheet_Activate() Dim i As Byte For i = 7 To 166 Cells(i, 1).Formula = IIf((Not IsEmpty(Cells(i, 15)) Or Cells(i, 16) > 0), "Not Valide", vbNullString) Next i End Sub

Re : cnversion formule en vba Hello En sautant la boucle, on arrive à la même chose Private Sub Worksheet_Activate() Range("A7:A166").FormulaR1C1 = "=IF(OR(RC[14]="""",RC[15]>0),"""",""Not Valide"")" End Sub

Re : Generer des liens hypertextes Hello Essaie d'appliquer cette macro (en sélectionnant d'abord tes adresses) Sub AjoutLiens() Dim c As Range, lien As String For Each c In Selection If Not IsEmpty(c) Then lien = c.Text c.Hyperlinks.Add Anchor:=c...

Re : les contrôles supplémentaires vba excel >Didier972 Et si tu vas dans Outils/Contrôles supplémentaires ? Est-ce qu'il est aussi coché ?

Re : les contrôles supplémentaires vba excel >Didier972 Tu as téléchargé et installé ce qui se trouve dans le lien de mon message de 16h53 ? As-tu essayé de localiser le contrôle avec Parcourir ? Normalement MSCOMCTL.OCX doit se trouver dans C:\WINDOWS\SYSTEM32. Le fichier est-il bien présent...

Re : Des questions bêtes ! Hello Un fichier exemple simplifie la compréhension de la question et sa résolution. Je vote sans hésitation Pour son imminente adjonction Dans ta discussion. Ajout en édition Salut Jam

Re : probleme de syntaxe Hello Ce devrait être OK, non ? (Attention à tes Dim ...) Dim fso As Object, y, z As Boolean Dim chemin As Variant chemin = "N:\documents\" Set fso = CreateObject("Scripting.FileSystemObject") y = fso.FileExists(chemin & "toto.xls") 'c'est par ici que je bloque z =...

Re : completer une macro Hello Une autre façon de faire le job Sub Macrosomme() Dim derlig As Long derlig = [H65536].End(xlUp).Row With Range("I2:I" & derlig) .FormulaR1C1 = "=SUM(RC[-4]:RC[-1])" .Value = .Value End With End Sub