Recherche mot vba

[Jules57]

Bonjour le forum,

Je souhaite avoir un code vba me permettant de sélectionner toules case contenant le mot AM, et ensuite y inscrire une formule du type = SUM( A1+1).

Ci joint un exemple plus explicite

Merci pour votre aide

 

[job75]

Bonjour Jules57, bienvenue sur XLD,

Sub Test()
On Error Resume Next 'si aucune SpecialCell
[K:K].Replace "AM", "#N/A", xlWhole
[K:K].SpecialCells(xlCellTypeConstants, 16) = "=N(R[-1]C)+1"
End Sub

A+

 

[Jules57]

Merci beaucoup, j'aimerais y intégrer un offset(0,6) et pouvoir mettre ma formule sous la forme Sum (A1+1), plus facile à adapter pour quelqu'un de mon niveau
Encore merci en tous cas

 

[job75]

pouvoir mettre ma formule sous la forme Sum (A1+1)

La fonction SUM est utile s'il y a plusieurs arguments (ou cellules) à additionner.

Ici il y a un seul argument (A1+1), cette fonction est donc tout à fait inutile.

 

[Jules57]

en fait je veux pouvoir mettre un code du type Selct.formula( ici toutes les case AM) = Sum(A1+1), la formule n'es pas celle qui figurera dans mon fichier, je l'adapterai en fonction de mes besoins.
De plus pour le offset comment adapter ton code ?

 

[job75]

Si maintenant vous voulez décaler les formules de 6 colonnes vers la droite :

Sub Test()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
[K:K].Replace "AM", "#N/A", xlWhole
Intersect([K:K].SpecialCells(xlCellTypeConstants, 16).EntireRow, [Q:Q]) = "=N(R[-1]C)+1"
[K:K].Replace "#N/A", "AM"
End Sub