Mettre 1 formule dans toutes les cells vides d'1 sélection

Salut à tous,

J'ai un peu de mal avec une macro. Elle doit faire :

Tu démarres du bas pour atteindre la 1ère cellule non vide, tu décales vers la droite de X colonne.

Dans cette colonne tu prends la cellule sélection jusqu'à la cellule 2 = la sélection

Dans cette sélection tu insères dans toutes les cellules vides une formule rechercheV.

Voici ce que j'ai fais, mais il ne prends pas la sélection et du coups je ne sais pas si le reste est correcte

Sub test()

Windows("Regroupement fichiers annonce Ford.xlsm" ).Activate

'Démarre Bas jusqu'à 1ere ligne non vide puis redescends sur la 1ère vide en dessous de la Col C et tu là sélectionnes

Dim DernLig As Long

DernLig = Range("C" & Rows.Count).End(xlUp).Row

Range("C" & DernLig).Select

'Décale la sélection de col C à col O

ActiveCell.Offset(0, 12).Select

'Insertion "Date Pochette" RechercherV si cellule Vide

Range("O2:O" & ActiveCell.End(xlDown)).Select

For Each MaCellule In Selection

If MaCellule.Text = Empty Then MaCellule.Value = "=VLOOKUP(RC[-12],[Papier reçu loueur.xlsx]'Intégration'!R2C2:R65000C3,2,False)"

Next MaCellule

'Copier / collage spécial Colonne O

Columns("O:O" ).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A1" ).Select

Application.CutCopyMode = False

End Sub

Merci d'avance

bonjour

trop compliqué !

revenons à ton besoin de base. A quoi sert ton tableau ? gestion de stocks ? ventes ? courses de chevaux ? club de judo ? locations de voitures ? déclaration de TVA ?

Salut jmd !

Juste une appréciation :

Sub test()
'Code pas indenté: mauvais !
Windows("Regroupement fichiers annonce Ford.xlsm").Activate 'mauvaise méthode, mauvais pour Activate, et mal placé: mauvais
Dim DernLig As Long
 DernLig = Range("C" & Rows.Count).End(xlUp).Row 'range non qualifiée: mauvais
 Range("C" & DernLig).Select 'select proscrit: mauvais
 ActiveCell.Offset(0, 12).Select 'select proscrit: mauvais
 Range("O2:O" & ActiveCell.End(xlDown)).Select 'select proscrit: mauvais
 For Each MaCellule In Selection 'variable non déclarée: mauvais, selection: mauvais
 If MaCellule.Text = Empty Then MaCellule.Value = "=VLOOKUP(RC[-12],[Papier reçu loueur.xlsx]'Intégration'!R2C2:R65000C3,2,False)" 'Text(Empty!):mauvais, Value(Formule):mauvais
 Next MaCellule
 Columns("O:O").Select 'select proscrit: mauvais
 Selection.Copy 'select proscrit: mauvais
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False 'selection: mauvais, 3 arguments inutiles: mauvais, arguments par noms (et dans l'ordre!):pas le top!, copier-coller valeurs: peut être évité!
 Range("A1").Select 'select proscrit: mauvais
 Application.CutCopyMode = False
'mauvais: nombre: 17, autres: 2. sur 15 lignes
End Sub

Et je n'ai pas compté la non utilisation des balises Code.

Cordialement.

salut MFerrand

sportif ?

amitiés excelliennes, et admiration !