Inserer formule si valeur en A non nul

Résolu/Fermé

Arcs - 29 juil. 2014 à 16:13
Arcs59 Messages postés 4 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 31 juillet 2014 - 31 juil. 2014 à 09:06

Bonjour,

Après quelques recherche je n'ai pas trouver ce que je cherchais. En effet, je débute sur VBA excel, je ne suis donc pas très agile et je pense que ma requête est pourtant simple.

Je voudrais que une macro par exemple, vérifie la colonne R a partir de la ligne 4 pour toutes les valeurs de la colonne A.
Si A et R non vide -> pas d'action
Si A non vide mais R vide -> insertion dans R d'une formule qui prend en compte la valeur en A et en B correspondante.

Et ce jusqu'à la fin des valeur de A.

Exemple :si R35=nul -> R35=CONCATENER(A35;B35)

Merci d'avance.

A voir également:

Inserer formule si valeur en A non nul
Formule si et - Guide
Mise en forme conditionnelle excel formule si - Guide
Insérer une vidéo dans powerpoint - Guide
Insérer signature word - Guide
Formule excel pour additionner plusieurs cellules - Guide

4 réponses

Réponse 1 / 4

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
29 juil. 2014 à 16:58

Bonjour

Un exemple

Const co1 = "A"
Const co2 = "R"
Const co3 = "B"
Const lideb = 4
Const NF = "Feuil1"

Public Sub EcritFormule()
Dim li As Long, lifin As Long, f As String, a, b
With Sheets(NF)
  lifin = .Range(co1 & Rows.Count).End(xlUp).Row
  For li = lideb To lifin
    If .Range(co1 & li) <> "" And .Range(co2 & li) = "" Then
      f = "=CONCATENER(" & co1 & li & ";" & co3 & li & ")"
      .Range(co2 & li).FormulaLocal = f
    End If
  Next li
End With
End Sub

Cdlmnt

Arcs59 Messages postés 4 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 31 juillet 2014
Modifié par Arcs59 le 30/07/2014 à 09:47

Merci beaucoup cela fonctionne bien !!
Mais je voudrais mettre un lien hypertexte (désolé de tout dire en deux fois) qui mène a un dossier en local, dossier qui dépend des valeur en A et B...
Merci encore.

Réponse 2 / 4

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
30 juil. 2014 à 14:48

Un exemple
https://www.cjoint.com/?3GEoVZm37U6

Arcs59 Messages postés 4 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 31 juillet 2014
30 juil. 2014 à 15:20

Merci c'est exactement sa !! :)

Réponse 3 / 4

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
30 juil. 2014 à 15:22

De rien

Si c'est fini, peux tu mettre le sujet à Résolu (en haut à droite de ton premier message)

Cdlmnt ccm81

Arcs59 Messages postés 4 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 31 juillet 2014
30 juil. 2014 à 15:33

Ce sera fait ;) dernière question : j'ai remarqué que les liens hypertexte mènent vers le classeur obligatoirement (clic droit sur la cellule, modifier le lien hypertexte -> il est sélectionné" emplacement dans ce document")
Car quand je met le liens du dossier en local cela ne fonctionne pas, et il suffit que je touche a la cellule pour que cela fonctionne.

Merci encore, je touche au but grâce a vous.

Réponse 4 / 4

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
30 juil. 2014 à 16:14

Essaies ceci
https://www.cjoint.com/?3GEqoKbfS3n

Arcs59 Messages postés 4 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 31 juillet 2014
31 juil. 2014 à 09:06

Parfait sa fonctionne, merci beaucoup.

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

je veut créer des codes

Problème de restrictions