Recherche mot vba

job75

XLDnaute Barbatruc

• 19 Février 2019

• #2

Bonjour Jules57, bienvenue sur XLD,

Code:

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+

 

Pièces jointes

• Cherche mot colonne(1).xlsm

  21.8 KB · Affichages: 7

Vote positif 0 Vote négatif

J

Jules57

XLDnaute Nouveau

• 19 Février 2019

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Février 2019

• #4

Jules57 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

J

Jules57

XLDnaute Nouveau

• 19 Février 2019

• #5

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Février 2019

• #6

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

Code:

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

 

Pièces jointes

• Cherche mot colonne(2).xlsm

  22.7 KB · Affichages: 6

Vote positif 0 Vote négatif