Insérer une formule dans une colonne

[anasimo]

Bonjour
J'ai un tableau de 25 colonnes, dans ma colonne C (cellule 2) j'ai la formule suivante:

=SI(G2;RECHERCHEV(G2;CAMR!A$2:d$520;4;FAUX);"")

bien sur la cellule 3 ça sera G3....et ainsi de suite


Parfois quand je veux effacer les contenu du tableau il m'arrive de supprimer même cette formule.
y a pas moyen de mettre cette formule sous forme de code dans la feuille.

NB: CAMR est le nom d'une autre feuille où il va consulter les données

Merci

 

[mapomme]

Bonjour @anasimo

y a pas moyen de mettre cette formule sous forme de code dans la feuille

Si, mais sans fichier difficile de retourner une proposition valable.

 

[Dranreb]

Bonjour.
Si c'est de code VBA dans le module de l'objet Workshet représentant la feuille que vous parlez, l'instruction qui la met est :

Intersect(Me.[C2:C1000000], Me.UsedRange).FormulaR1C1 = "=IF(RC7,VLOOKUP(RC7,CAMR!R2C1:R520C7,4,FALSE),"""")"

 

[anasimo]

Bonjour @anasimo



Si, mais sans fichier difficile de retourner une proposition valable.

un fichier exemple.....ne faites pas attention à la colonne B de la feuille

 

[anasimo]

Bonjour.
Si c'est de code VBA dans le module de l'objet Workshet représentant la feuille que vous parlez, l'instruction qui la met est :

Intersect(Me.[C2:C1000000], Me.UsedRange).FormulaR1C1 = "=IF(RC7,VLOOKUP(RC7,CAMR!R2C1:R520C7,4,FALSE),"""")"

j'ai mis ce code (insérer code dans la page en question)...ça a marchait le premier cout, mais après, je ne sais pas, ça génère pas la formule

 

[Dranreb]

Ça marche chaque fois qu'on exécute l'instruction et donc la procédure où vous l'avez mise.

 

[anasimo]

Ça marche chaque fois qu'on exécute l'instruction et donc la procédure où vous l'avez mise.

Ah ça se génère pas automatiquement ?

 

[Dranreb]

Par exemple avec ce code ça la met automatiquement quand on sélectionne la cellule C1 :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$C$1" Then
      Intersect(Me.[C2:C1000000], Me.UsedRange).FormulaR1C1 = "=IF(RC7,VLOOKUP(RC7,CAMR!R2C1:R520C7,4,FALSE),"""")"
      End If
   End Sub

 

[anasimo]

Ah parfait ...et en plus c'est original comme utilisation

Merci beaucoup

 

[anasimo]

Sinon j'ai une autre feuille qui a la même formule mais la colonne est différente (D2 au lieu de G2) ...je ne sais pas comment l'adapter avec votre code RC7

=SI(D2;RECHERCHEV(D2;CAMR!A$2:D$520;4;FAUX);"")

 

[Dranreb]

RC7 veut dire ligne de la formule et colonne en 7ième position donc pour la colonne D ce serait RC4.

 

[anasimo]

Merci beaucoup...ça marche pour les deux feuilles