Contenu récent par mikado08

J'ai trouvé merci pour votre aide :) ActiveSheet.Cells(ActiveCell.Row, 17).FormulaR1C1 = "=SUBTOTAL(109,R" & Plage.Row & "C[+1]:R[-1]C[+1])"

@Dranreb merci beaucoup ca fonctionne quasi à la perfection :) ActiveSheet.Cells(ActiveCell.Row, 17).FormulaR1C1 = "=SUBTOTAL(109,R" & Plage.Row & "C:R[-1]C)" la seule chose qui me bloque encore c'est que j'écris en colonne 17 (soit Q) une plage que je somme en R mais il ne prend pas en compte...

Bonjour, Je cherche par le biais d'une InputBox à selectionner une plage de cellule qui doit s'inserer dans ma formule SOUS.TOTAL... mais ca ne fonctionne pas Public Sub cmdsst_Click() 'sst Selection.EntireRow.Insert Range("A27:R27").Copy Range("A" & ActiveCell.Row) 'rempli la cellule du...

Sub CopieDonnees() Dim MotCle Dim i As Byte Dim C As Range Dim F As String Dim Ligne As Long 'On définit les mots clés MotCle = Array("x", "X", "1") 'On effectue la recherche de chaque mot clé dans la colonne A de la feuille "RUBRIQUES TYPE" For i = 0 To UBound(MotCle) Do...

voila en gros au lieu de rajouter des lignes a chaque fois je voudrais avec une feuille "RUBRIQUES TYPE" pour la quand je met un "x" en A ca copie la ligne vers la feuille "Débours" mais avant le total HT et sans que ca écrase d'autre ligne qui serait déja la... c'est la que je bute

Bonjour à tous, j'ai exploré plusieurs forum à la recherche des infos manquantes mais je ne suis pas assez callé en VBA pour adapter à mon besoin. Je souhaite copier coller une ligne de A à O si dans la colonne A cela contient un "x" sur une autre feuille qui va se copier avant mon Total...