Contenu récent par Benjy

Re : Macro et pourcentage Parfait merci beaucoup. Réponse claire et rapide comme toujours sur ce site.

Re : Macro et pourcentage Peut être avec l'exemple en pièce jointe. Pourquoi je passe de 80% à 100% quand je clic sur le bouton ?

Bonjour à tous ! J'ai un problème sans doute très simple à résoudre pour les experts que vous êtes. J'ai une cellule au format pourcentage. Cette cellules est utilisée dans plusieurs formules de ma feuilles. Ce que je souhaite faire c'est mettre en mémoire le pourcentage de cette cellule...

Re : Fonction CAR en VBA Oui pas mal. Merci, comme toujours pour la rapidité et l'efficacité des réponses de ce forum.

Re : Fonction CAR en VBA Je cherche à faire la somme d'une plage de cellules variable d'une colonne a position variable. Le code de mon premier message utilise la fonction CAR, avec une variable integer colsurface qui donne la position de ma colonne. Exemple si la colonne se trouve en A...

Bonjour à tous ! J'ai un soucis avec ce code : Cells(x, colsurface).Formula = "=SUM(INDIRECT(CHAR(" & colsurface + 64 & ")&" & x - 1 & "):INDIRECT(CHAR(" & colsurface + 64 & ")&" & x - 1 - b1 & "))" Cette ligne fonctionne si colsurface renvoie à une colonne compris entre A et Z. En...

Re : Syntaxe de copie Non non. Je me suis mal exprimé mon fichier fonctionne en l'état. Et l’exécution est très rapide. J'importe des données d'un fichier dans plusieurs colonne avec un code ce type : Workbooks(c).Sheets("Tableau").Range("C30:C" & j) = Workbooks(D).Sheets(E).Range("E4:E" &...

Re : Syntaxe de copie Re, La solution n'est pas viable vu le temps d’exécution du code. On passe de 10 sec à plusieurs minutes..

Re : Syntaxe de copie Bonjour Efgé. Effectivement sa semble fonctionner. La macro s'effectue très lentement, je ne sais pas si cela est lié, mais sa semble fonctionner.

Re : Syntaxe de copie Si je simplifie en enlevant la variable col : Cette ligne fonctionne : Workbooks(c).Sheets("Tableau").Range("C30:C" & j) = Workbooks(D).Sheets(E).Range("E4:E" & i).Value Cette ligne ne fonctionne pas : Workbooks(c).Sheets("Tableau").Range(Cells(30, 3), Cells(j...

Re : Syntaxe de copie Une autre idée ?

Re : Syntaxe de copie Non cette syntaxe est identique sur les deux lignes comme tu peux le voir. Et la première fonctionne parfaitement. Les noms des classeurs et de la feuilles sont bien des variables également.

Bonjour j'ai un petit problème dont je n'arrive pas à me sortir. Cette ligne de code fonctionne : Workbooks(c).Sheets("Tableau").Range("C30:C" & j) = Workbooks(D).Sheets(E).Range("E4:E" & i).Value Cette ligne ne fonctionne pas : Workbooks(c).Sheets("Tableau").Range(Cells(30, col)...

Re : Fonction inStr VBA Re, Parfait tototiti2008. effectivement je n'avais pas pensé à rajouter la position de départ. Je vais fonctionner avec des or successifs. 2 ou 3 devrait suffire à couvrir la totalité de mes possibilités. @ Si.. intéressant. Les * sont en remplacement des "s" si je...

Re : Fonction inStr VBA Re, J'ai une incompatibilité de type sur cette ligne : If InStr(Sheets("bâtiment").Cells(x, 3).Value, "sdb", vbTextCompare) <> 0 Or InStr(Sheets("bâtiment").Cells(x, 3).Value, "salle de bain", vbTextCompare) Then J'avais déjà tenter cette possibilité. J'ai remarqué...