Résultats de la recherche

Bonjour à tous, J'ai fait quelques recherches sur google sur mon problème mais n'ayant trouvé aucune solution à ce dernier, je me permets de demander de l'aide ici :). Voila la description de mon problème : j'utilise une macro sur excel 2007 pour insérer une image depuis le web à la...

Bonjour a tous, Je ne suis pas vraiment expérimenté avec les modules de classe donc je me suis dis que vous pourriez m'aider. Mon problème est donc le suivant : J'ai crée un module de classe qui simule le fonctionnement d'une base de données très simples. Pour ce faire, j'ai intégré une...

Bonjour à tous, Je viens de remarquer le problème suivant sous Excel : Supposons que nous avons une liste de validation dans la cellule A1. Supposons également que nous utilisons des procédure événementielles sous vba (par exemple Worksheet_Change ou Worksheet_SelectionChange). Lorsque...

Bonjour à tous, Savez-vous pourquoi la macro suivante ne fonctionne ? Option Explicit Option Base 1 Sub test() Dim MyWorkbook(2) As Workbook Dim MaVar As Range Dim MonTest As Range Dim i As Byte, i2 As Byte, i3 As Byte Dim cel As Range Set MyWorkbook(1) = Workbooks.Open("C:\Documents and...

Bonjour à tous, Dans le procédure ci-dessous, la dernière instruction ne déclenche pas l'événement Worksheet_Activate. Private Sub Workbook_Open() Application.EnableEvents = False Application.ScreenUpdating = False Call ShowAll Call gestion_sauvegarde(1) If...

Bonjour à tous, La petite macro suivante ne fonctionne absolument pas : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then SaveAsUI = False End Sub Est-ce que vous avez une idée ? Merci à l'avance, Youri

Bonjour à tous, Je fais à nouveau appel à vos connaissances, qui m'ont été d'une très grande aide jusqu'à présent, car je suis face à un problème que je n'arrive pas à résoudre. Je souhaiterais en fait savoir s'il y a moyen simple de vérifier si une chaîne de caractères est un lien...

Bonjour à toutes et à tous, Est-il possible d'insérer une formule dans une validation de données par macro ? En fait, pendant que j'enregistrais une macro, j'ai inséré une formule dans une validation de données d'une cellule mais lorsque j'ai relancé la macro : elle ne fonctionnait plus...

Bonjour à tous, Est-il possible de définir un Range en tant que constante autrement que de la manière suivante ? Option Explicit Const test As String = "B2" Sub essai() Range(test).Value = 2 End Sub Je trouve que c'est quand même un peu lourd de faire ça... J'ai essayé "Const test As Variant =...

Bonjour à tous, J'ai rédigé une petite macro pour m'aider à modifier les mises en formes conditionnelles de cellules. Cependant, elle fait planter Excel. Voici la macro : Option Explicit Sub mefc_contacts() Dim formule_inserer_1 As Variant Dim formule_inserer_2 As Variant Dim formule_inserer_3...

Bonjour à tous, Connaissez-vous un moyen rapide pour transformer toutes les références relatives contenues dans des mises en formes conditionnelles des cellules sélectionnées en références absolues ? Je vous remercie, Youri

Edit : annulé

Bonjour à tous, Je joins un petit fichier à ce poste pour que ce soit plus clair. J'ai créé deux macros : Une qui test les cellules dans le Range spécifié en critère et renvoie 0 si elle ne trouve aucune valeur et 1 dans le cas inverse (dans le fichier : module 1). La deuxième est censée...

Bonjour à tous, Supposons qu'on a une liste de variables (contenues dans l'array var(1 To 10)) dont les valeur ressemblent à ça : var1 = 0 var2 = A2 var3 = 0 var4 = A8 var5 = A12 var6 = B7 var7 = 0 var8 = 0 var9 = 0 var10 = 12 Comment faire pour réaffecter uniquement les valeurs différentes de...

Bonjour à tous, Comment faire pour que la macro suivante fonctionne ? : Option Explicit Option Base 1 Sub test() Dim variablenonvide(4, 4) As Variant Dim saut_vertical As Integer Dim saut_horizontal As Byte Dim variablecompte As Variant Dim cel As Variant For saut_vertical = 58 To 103 Step 15...

Bonjour à tous, Comment faire pour exécuter une boucle de sorte à ce que celle-ci affecte une valeur non pas à une variable mais à plusieurs variables simultanément. Je m'explique, si par exemple je veux faire une boucle sur toutes les cellules dans Range("A1:A10") et que je souhaite que la...

Bonjour à tous, Pourquoi le code suivant ne fonctionne pas : If Target.Address = "$C$207" And Target.Offset(1, 0).Value <> "" And Target.Offset(1, 0).Value <> 0 Then Worksheets("Fiche de renseignements").Range("C208:C231").ClearContents End If ? C'est étrange carIf Target.Address =...

Bonjour, Comment s'assurer que la valeur de Target dans Private Sub Worksheet_Change(ByVal Target As Range) est différente de la valeur existant précédemment dans la cellule ? Je précise: Si par exemple la cellule A1 contient 1 et qu'on veut effacer le contenu de la cellule B1 si A1 est...

Bonjour à tous, Comment créer une macro qui procède la manière suivante : 1. Stocker dans variablenonvideA la valeur C58 si Range("C58").Value = "Oui" et la valeur 0 si Range("C58").Value = "Non" ou Range("C58").Value = "" ou Range("C58").Value = 0, stocker dans variablenonvideB la valeur...

Bonsoir à tous, J'ai une macro dont une partie fonctionne mais pas la deuxième alors que le code semble identique. Voilà le code de la macro : Private Sub Worksheet_Change(ByVal Target As Range) Dim CellConc As Range Dim Plage As Range Dim TempConcatenation As String Dim CellConc2 As...