Coiper des formules si valeur présente dans colonne B VBA
Résolu
mamined
Messages postés
35
Date d'inscription
Statut
Membre
Dernière intervention
-
mamined -
mamined -
Bonjour le forum,
j'ai un document Excel dans lequel j'ai des données dans les colonnes de "A à N". En revanche, le nombre de ligne varie selon les jours que j'importe les données.
Dans les colonnes de "O à AJ" en ligne 1 j'ai des formules. Je souhaite pouvoir les tirer automatiquement vers le bas, mais uniquement jusqu'à la dernière ligne, pour laquelle j'ai une valeur dans la colonne "B".
Mon problème est que si je les tire tout simplement vers le bas, cela va jusqu'au bas de la feuille et ce n'est pas ce qui est souhaitlé.
Par avance merci pour votre aide
mamined
j'ai un document Excel dans lequel j'ai des données dans les colonnes de "A à N". En revanche, le nombre de ligne varie selon les jours que j'importe les données.
Dans les colonnes de "O à AJ" en ligne 1 j'ai des formules. Je souhaite pouvoir les tirer automatiquement vers le bas, mais uniquement jusqu'à la dernière ligne, pour laquelle j'ai une valeur dans la colonne "B".
Mon problème est que si je les tire tout simplement vers le bas, cela va jusqu'au bas de la feuille et ce n'est pas ce qui est souhaitlé.
Par avance merci pour votre aide
mamined
A voir également:
- Coiper des formules si valeur présente dans colonne B VBA
- Déplacer colonne excel - Guide
- Formule somme excel colonne - Guide
- Formule si et - Guide
- Trier colonne excel - Guide
- Formules - Télécharger - Études & Formations
2 réponses
Bonjour,
Essaie avec cette macro
A+
Essaie avec cette macro
Sub CopierFormules()
Dim DerLigB As Long
With Worksheets("Feuil1") 'Nom de feuille à adapter
DerLigB = .Range("B" & Rows.Count).End(xlUp).Row
.Range("O1").Resize(, 22).AutoFill Destination:=.Range("O1:AJ" & DerLigB), Type:=xlFillDefault
End With
End Sub
A+
merci infiniment. Le code fonctionne très bien pour ma première feuille. En revanche, à présent, si je veux répéter l'opération sur la feuille suivante, j'ai unmessage d'erreur pour la seconde feuille qui s'appelle "Données1".
Si je mets ton code juste pour 1 seule des deux feuilles c'est parfait ça fonctionne à merveille :-)
Estce que je fais quelque chose de faux?
Par avance merci
Mamined
Sheets("Données 2").Select
Dim DerLigB As Long
With Worksheets("Données 2") 'Nom de feuille à adapter
DerLigB = .Range("B" & Rows.Count).End(xlUp).Row
.Range("O1").Resize(, 22).AutoFill Destination:=.Range("O1:AJ" & DerLigB), Type:=xlFillDefault
End With
Sheets("Données 1").Select
Dim DerLigB As Long
With Worksheets("Données 2") 'Nom de feuille à adapter
DerLigB = .Range("B" & Rows.Count).End(xlUp).Row
.Range("O1").Resize(, 22).AutoFill Destination:=.Range("O1:AJ" & DerLigB), Type:=xlFillDefault
End With
Range("O1").Select
MsgBox "Valider les adress ID, copier collage spéciale et copie onglet final. Terminer par trier selon Adress ID et heure de passage"